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Simulare, che passione! 


uando la ricerca scientifica, a causa 
delia complessità sempre crescente degli 
esperimenti, si à scontrata con la dura 
realtà delle spese per sostenerli, si c cer- 
cato di far ricorso ad una metodologia 
che potesse, per quanto possibile, evita- 
re spreco di tempo, mezzi c materiali. 

D'altra parte, la crescente ansia di of- 
frire ad un pubblico sempre più esigente 
prodotti competitivi spingeva le grandi 
industrie a favorire analoghe ricerche 
che consentissero un risparmio sensibile 
sulla sperimentazione di prototipi. 


zioni ha impedito lo svolgersi di taluni 
eventi che la tecnologia avrebbe sì con- 
sentito, ma coti un margine di rischio 
inaccettabile. 

Consideriamo, ad esempio, le imprese 
spaziali che, da una parte, richiedevano 
Fimpiego di ingenti capitali e, dall'altra, 
la necessità di rassicurare l’opinione pub- 
blica circa la certezza del rientro sulla 
Terra dell' equipaggio umano. 

Ancor oggi, come negli armi *60, prima 
dì premere il pulsante che abilita la par- 


tenza del vettore, vengono effettuate mi- 
gliaia di simulazioni basate su modelli 
matematici che tengono conto di qualsia- 
si evento e della influenza che può avere 
nella riuscita delFoperazione. 

Non è un mistero che agenti della 
CXA. e delFF.BX seguono la vita pri- 
vata degli astronauti e riferiscono, a chi 
di dovere, la cronaca di ciascuno di essi. 
Litigi in famiglia, contrarietà di ordine 
fisico o psicologico potrebbero, infatti, 
influire negativamente sul comporta- 



In alcuni casi la simulazione di situa- 
zioni probabili era una semplice curiosi- 
tà, pur se di rilievo. In altri casi l'impossi- 
brida di far ricorso ad affidabili simula- 





memo durante la missione e pregiudicar- 
ne Tesito finale. 

Vengono attivati, pertanto, modelli 
matematici, vale a dire complesse proce- 
dure logico-deduttive che tengono conto 
delie reazioni che è probabile si manife- 
stino sia negli uomini sia nelle l4 cose'\ 

In queste formule compaiono, opportu- 
namente quantificati, i valori relativi agli 
aspetti meteorologici come a quelli delle 
qualità e quantità di carburarne; airaffi- 
dabilità dei materiali che costituiscono le 
tute a i cristalli corazzali; alle rotte degli 
aerei che saranno presenti al momento 
del lancio oppure la probabilità di incon- 
trare stormi di uccelli migratori durante 
il rientro: al dubbio che l’attenzione di 
un astronauta sia distolta da preoccupa- 
zioni circa la salute di un congiunto 
eccetera. 

Le formule di cui stiamo parlando so- 
no applicabili talvolta con rigore scienti- 
fico. ma in certi casi devono basarsi su 
esperienze precedenti a semplicemente 
empiriche (come i bioritmi). 

Di certo c che le circostanze che con- 
tribuiscono alla buona riuscita di unim- 
presa spaziale sono talmente numerose 
che risulta indispensabile affidarsi ad una 
intera rete di elaborazione in cui piu 
computer siano collegati tra loro in una 
sinergia incredibilmente rapida quanto 
efficiente. 

E’ noto infatti che. in molti casi, il 
segnale di allarme di uno solo di questi 
computer ha spesso bloccato il conto alla 
rovescia perchè la sicurezza di una sola 
delle migliaia di operazioni eseguite ave- 
va valutato inaccettabile una semplice 
probabilità di imprecisione. 

Le simulazioni, ovviamente, non ne- 
cessariamente devono essere eseguite da 
grossi computer (i cosiddetti mainframe) 
ma, con un po’ di buona volontà, anche 
dal piccolo ho me computer che ognuno 
di noi possiede. E‘ sufficiente, infatti, 
non pretendere la luna da un calcolatore 
che è nato per altri scopi {e con alto 
lìmiti) e la soddisfazione è garantita! 

Se riflettiamo, d'altronde, anche un 
videogioco può essere considerato un 
modello matematico e t a volte, una vera 
e propria simulazione. 

Pensiamo ad una delle numerose ver- 
sioni di corse automobilistiche in cui è 
necessario mantenere la propria vettura 
in carreggiata, evitare il guard rail o le 
auto concorrenti, stimare l'angolo della 
curva e decidere se la velocità con cui 
viaggiamo sia eccessiva o meno. 

Passando agli ad venture non possiamo 
lare a meno di notare il realismo coti cui 



.«•grazie al corso BASIC per 
corrispondenza! 


Possedere un microcomputer 

è solo un punto di partenza. 

E indispensabile, infatti, sapere come usar- 
lo correttamente & come sfruttare a fondo 
le sue importanti periferiche 
Se lei vuole padroneggiare (ulta (a poten- 
za del computer, deve dispone di ampio 
ed approfondite conoscenze di program- 
mazione. 

La programmazione diventa una 
passione 

Con it corso BASIC dell’lST lei mette in pra- 
tica subito ciò che studia fin dalla prima 
pagina; un. grande vantaggio che la entu- 
siasmerà e la stimolerà a proseguire nello 
studio. 

imparerà cosi ad analizzare i problemi, a 
strutturarli ed a risolverli autonoma mente: 
capirà tutte le affascinanti applicazioni in 
uso nella professione e nell 'hobby. 

La passione per la programmazione non la 
lasco rà veramente più! 

ISTITUTO 
SVIZZERO 
DI TECNICA 

Lo scuoto del progresso 


Con qualsiasi modello di computer 
Con il corso IST. unico nel suo genere, 
lei apprenderà a programmare senza le Pórr 
note difficoltà iniziali. 

Questo perchè è staio collaudalo con i piò 
noti e richiesti computer 
Pensi, poi, che per i computer Commodo- 
re e Smelai* potrà disporre di fascicoli 
complementari che !e faciliteranno ancor 
di più l'accesso all'informatica! 

Faccia una prova di studio per co- 
noscere il metodo IST 

Ci spedisca oggi stosso l'unito taglrando: 
nel giro di pochi giorni riceverà a casa sua. 
per posla e senza alcun impegno, la 1 a 
dispensa in visione e tutta la relativa docu- 
mentazione 

Così vedrà la qualità didattica che servirà 
da base ai suo apprendimento informatico, 
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- ISTITUTO SVIZZERO DI TECNICA 

Via S. Pietro 49 - ZI 01 6 LUlNO fVA) 


8581 A - QBc 
Tel. 0332/&30469 


f, desidero ricevere in VISIONE GRATUITA pei posta e senza alcun impegno 
la prima dispensa per una PROVA DI STUDIO e la docu manico ne compiei a 
del Corso. 

I Olendo studiare epn il computer 
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essi sono progettati e la corrispondenza 
alla realtà nel caso, pur se improbabile, si 
dovessero verificare determinate 
situazioni. 

Anche i simulatori di volo, che in alcu- 
ne versioni sono dei veri e propri gioielli 
di mini-informatica, ci hanno spesso me- 
ravigliato per la loro incredibile aderen- 
za alla realtà. 

Dato che siamo in tema, parliamo ora 
di un “vero" simulatore, unico al mon- 
do, inaugurato di recente dalla Mercedes 
- Bcnz e presentato sul numero di luglio 
della rivista “QuattroTuote". 

Pensate che hanno dovuto costruire 
un intero edificio allo scopo di alloggiare 
le numerose apparecchiature che hanno 
il compito, simulando automobili che s<i- 
no ancora “sulla carta", di studiare il 
loro comportamento reale e decidere se 
iniziarne la produzione o meno. 

E" inutile soffermarsi sulla utilità eco- 
nomica di simili iniziative! 

Lo "sperimentatore" entra in una 
grande stanza in cui t presente la carroz- 
zeria del prototipo in questione. Atti- 
verò il parabrezza, i finestrini laterali cd 
il lunotto si possono a stento notare nu- 
merosi schermi giganti, ben dissimulati, 
che circondano il prototipo stesso. 

Come avrete intuito, sullo schermo 
vengono proiettate immagini a colori in 
alta risoluzione generate da uria batteria 
di computer che riproducono, in pralka. 
un vero e proprio ''ambiente" in cui si 
troverebbe il guidatore se guidasse quel- 
l'automobile. Tutti i comandi di questa 
sono collegati ad altrettanti computer 
per cui, se il guidatore gira il volante, il 
paesaggio "cambia" proprio come se la 
manovra fosse effettuata: se accelera, il 
rumore del motore aumenta, la prospet- 
tiva cambia e, se è il caso, si sente il 
rumore della sgommata tipica dell'ecces- 
siva accelerazione. Ma non basta: in que- 
st'ultimo caso il muso della vettura si 
inclina in alto grazie ad alcuni meccani- 
smi che riproducono ['effetto deH’aecele- 
razione improvvisa, In caso di brusche 
frenate la macchina, se è il caso, sbanda e 
se in quel momento sopràggi unge va 
un'auto (simulata sullo schermo del lu- 
notto) si avverte non solo il rumore ma 
addirittura il sobbalzo dello schianto 
che, assicurano* è del tutto realistico e 
proporzionale aH'eutìtà del danno!. 

La perfetta aderenza alla realtà à tuie 
che. dopo un po' di tempo, c praticamen- 
te impossibile rendersi conto che l'auto 
che si guida È ferma, c che il movimento ò 
solo opera di potenti computer* che la- 
vorano insieme alla velocità di milioni di 
operazioni al secondo. 

Alessandro de Si mone 


Istruzioni di salto L.M. 

□ Che significato hall valore che si trova 
dopo ui^ist razione di salto (BNE t BEQ, 
eccetera) nel Linguaggio Macchina? 

(Stefano Rosa - Venezia) 

• C*è da precisare, anzitutto, che il salto 
viene eseguito a patto che la condizione 
si verifichi, altrimenti viene ignorata cd il 
programma prosegue con ['istruzione 
successiva. 

Nel caso in cui il salto debba essere 
eseguito, se il numero che segue l’ istru- 
zione di salto è inferiore a L28* il pro- 
gramma proseguirà “saltando" tante lo- 
cazioni di memoria quante ne indica il 
valore stesso. 

Se il numero è invece superiore a 127 
(ha, in altre parole, il settimo bit setta- 
to), il salto va effettuato facendo il con- 
teggio all’indietro delle locazioni da sal- 
tare “alle spalle" de 11' istruzione stessa. 
Ad esempio, considera il seguente seg- 
mento di programma L.M. ; 

0344 A9 FF 
0346 8 D 00 80 
0349 LE 47 03 
G34C DO F6 
034 E AD 48 03 

Quando il contatore di programma si 
appresterà ad eseguire l'istruzione DO 
(indirizzo Ù34C), terrà conto del risultato 
dell'incremento del contenuto della loca- 
zione effettuata (vedi EH 47 03) Se que- 
sto porta un risultato uguale a zero, Pi- 
struzione DO viene ignorata e, di conse- 
guenza, viene eseguita la AD 48 03, 

Se invece i! risultato è uguale a zero, il 
contatore di programma si posizionerà 
al! : indietro {dato che i! settimo bit di F6 
“esiste"). La locazione 034E, successiva 
alfistruzione DO F6, viene denominata 
convenzionalmente FF, ai fini del con- 
teggio, e, contando all’indìetro, si terrà 
conto del seguente procedimento: 

k k fi P * ■ ■ 

F4 0343 
F5 0344 
F6 0345 
F7 0346 
F8 0347 
F9 0348 
FA 0349 
FB 034 A 
FC 03413 
FD 034C 
FE 034D 
FF 034E 


Dato che Pargomento di DO è F6, IV 
struzione che sarà eseguita sarà quella 
contenuta in 0344 (A9 FF). Attento, 
dunque, a contare con cura H “salto" 
altrimenti rischi di far elaborare istruzio- 
ni indesiderate o “a metà”! ! 

Rubar gratis programmi 

□ Si può trasformare il telefono di casa* 
in modem? E 7 possibile rubare x dati di un 
altro personal servendosi di un modem? 
L*uso del telefono è gratuito o gii scatti 
vanno pagati? (Antonio Raineri - 
Meìegnano) 

* il modem è un apparecchio che colle- 
ga un computer, tramite il telefono, con 
una Banca Dati. Proprio per evitare che 
qualcuno utilizzi indebitamente (=rubi) 
il servizio offerto, sono numerosi gli ac- 
corgimenti presi per evitare Pinconve- 
niente citato. 

OH avvenimenti del film “War Ga^ 
mes'\ cd i recenti furti di denaro grazie a 
tessere magnetiche false, devono rite- 
nersi poco probabi lì e di sempre pm diffi 
die realizzazione. 

lì collegamento telefonico è possibile, 
in Italia, pagando un canone aggiuntivo 
alla SIP, che deve essere in ogni caso 
informata deH'utììizzo inconsueto che si 
intende fare del telefono. 

Per rubar programmi via telefono è 
necessario, purtroppo, pagare gli scatti, 
che vengono addebitati come se si effet- 
tuasse una normale teleselezione (maga- 
ri internazionale). Spero che questo par- 
ticolare li faccia desistere da tentativi il- 
leciti di entrare, pur se elettronicamente , 
negli archivi delle Banche Dati! 

Grafica su stampanti 

□ Le stampanti Commodore sono grafi* 
che? (Massimo Praia - Piacenza) 

• 1 caratteri delle stampanti MPS 801, 
MP$ 802 e MPS 803 sono riprodotti in 
una matrice di 8x8 punti elementari. Ciò 
significa che, analogamente a quanto av- 
viene per i caratteri visualizzati sullo 
schermo, file di puntini, presenti oppure 
assenti, consentono l'individuazione di 
un carattere numerico, alfabetico o grafi- 
co che sia. 

Le stampanti citate, in modo del tutto 
analogo al computer, permettono all’u- 
tente di definire caratteri ricorrendo alla 
solita tecnica di assegnare un byte a cia- 
scuna fila di otto punti. Sul libretto di 
istruzioni delle stampanti sono riportati, 
comunque, alcuni esempi pratici che illu- 
strano piuttosto bene il modo di pro- 
grammare i caratteri. 
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Caratteri illegibili 


□ Di Vorrei sapere se è normale che, 
scrivendo in rosso su alcuni colori dì sfori- 
do delio schermo, i caratteri siano illegb 
bili. (Alfonso Forgione - Gesualdo} 


* Purtroppo non tutte le combinazioni 
di colori fondo - carattere sono soddisfa- 
centi ed ii motivo t da attribuirsi alle 
“sbavature” (perdonale la terminologia 
approssimativa) di un colore nell'altro. 
Proprio il rosso, per esempio, è illeggibi- 
le su fondo blu come pure il blu su fondo 
rosso. 

Un'accurata regolazione del contrasto 
e del colore sul monitor (o televisore) 
riesce tuttavia, a seconda delle combina- 
zioni impostate, a limitare l’incori venirte- 
le lamentato. 


Pulsante di reset 

□ Come si può costruir* un pulsante per 
resettare il computer quando si blocca? 

(Beppe Almansi - Brescia) 

* Il pulsante di reset è un pulsante che, 
mettendo a massa il piedino RST (Reset ì 
del microprocessore, lo obbliga ad ese- 
guire la procedura di inizializzazione cfk 
si verifica tutte le volte che sì accende il 
calcola tote. 

In questo modo, però, i puntatori del 
l'eventuale programma B ASIC vengon < 3 
alterati, come pure rischiano di essere 
cancellati considerevoli “segmenti” di 
programma in linguaggio macchina pre- 
cedentemente allocati. 

La connessione di un pulsante (rcor 
ma (mente aperto) t ra massa e piti RS I 
della porta utente (odi espansione), de- 
ve comunque essere effettuato da perso 
naie esperto iti montaggi elettronici al 
fine di evitare pericolosi corti circuiti 
involontari. 

Tabelle 

□ Vorrei sapere come si fa a program- 
mare una tabella tri cui in ascisse appaio- 
no i mesi dell’anno e in ordinate i giorni. 

(Lino De Togni - Arese) 

* Come puoi notare, da un po' di tempo 
Commodore Computer Club insegna a 
fare molte “cose", tra cui giochi, utility, 
tabelle. Il modo in cui gli argomenti sono 
affrontati t decisamente semplice, tanto 
da esser digerito da un’utenza che sia 
anche alle prime armi. 

Il programma richiesto, se provi a stu- 
diare i listati pubblicati dalla nostra rivi- 
sta, dovresti essere in grado di farlo da 
solo. 


AVVERTENZA 

IMPORTANTE 


Tra le numerose domande che pervengono in Redazione , vengono 
scelte in prevalenza quelle di interesse generale, rinviando , spesso sine 
die , la pubblicazione di quelle ritenute meno interessanti oppure già 
affrontate di recente jw Commodore Computer Club . 

Ci capita infatti, purtroppo, di esaminare schede in cui vengono 
richiesti argomenti già trattati sullo stesso fascicolo da cui la scheda è 
tratta ! 

Invitiamo pertanto i lettori, specie se principianti , a sfogliare con 
attenzione le pagine della nostra rivista e a leggere articoli che f pur se 
apparentemente non li interessano, contengono purtuttavia preziose 
informazioni su istruzioni particolari fPOKE, PEEK, SYS ed altre) o 
tecniche insolite di programmazione r registrazione di dati l, programmi 
eccetera. 



Ci sono tanti modi di 
studiare l’inglese, c’è 
un solo metodo 


per impararlo 
davvero. Te ne 
accorgerai giorno per 
giorno, venendoallo 
Shenker. Sbrigati, do it! 
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Le immagini di questo fascicolo 




Festeggiamo 

Ili 25nM© 
numero 

di 


Molte riviste festeggiano la propria 
presenza in edicola ricordando ai 
lettori, periodicamente, la strada 
percorsa. 

1 numeri "chiave ’ coincidono, in 
genere, col 25mo anno {...nozze 
d*argento), 50 (d'oro) c pochi perio- 
dici, tra cui soprattutto quotidiani, 
vantano un’età ultracentenaria, 

Commodore Computer Club, 
giunto al N.25, e approfittando del 
quarto anno di pubblica/ ioni, pro- 
pone ai lettori affezionali (e nuovi) 
le copertine di alcuni numeri della 
rivista. 

U periodo di tempo trascorso vi 
sembra troppo breve per meritare 
una particolare attenzione? Forse, 
per una rivista, 25 numeri (e non 
anni) sembrano pochi per parlare di 
“storia"?. 

Noi pensiamo che. nel campo dei- 
fin format iea, quattro anni di pub- 
blica/iene specializzata siamo para- 
gonabili, per la ferra, ai periodo di 
tempo di un'era geologica, Per con- 
vincervene, leggete le didascalie del- 
le immagini disseminate in questo 
fascicolo. . , 

\ lessa ndrn de Si motte 
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Enduro MDX. La belle 





Guardalo da vicino. L'ENDURO MDX ha if 
{noto re di 50 cc. monocilindrico a due tem- 
pi. Cilindro in allumìnio a 5 travasi. Raffred- 
damento a liquido con pompa dì d reo! azio- 
ne e vaso di espansione. Accensione elettro- 
nica con regolatore di tensione. 4 marce con 
frizione in lega di alluminio e para strappi. For- 
cella teleidraulica a perno avanzato con can- 
ne in acciaio dì 032. Forceflone oscillante 
con mono-ammortizzatore a gas regolabile. 
Pneumatici: anteriore 2,75*21, posteriore 
3.50 x 18. Mozzo posteriore con para strappi 
e capacità dei serbatoio dì It. 9, Freno ante- 
riore Idraulico a disco, indicatori di direzio- 
ne* Contagiri elettronico e tachìmetro con- 


tachilometri illuminati. Spie riserva carburante 
e posizione dì Jt folle”. Termometro a LEO per 
la temperatura dell'acqua Ghìa ve dì contatto , 
specchio retrovisore, interruttore per la luce di 
stop nel fanalino posteriore , lucchetto antifurto 
e gancio con chiave per li casco. E allora, non 
fermarti a guardarlo- Provalo, 


Prima degli altri. 

S. LAZZARO DE K AVENA (BO< 

TEL, (MI) 4rWÈ0fi TELEX ‘iLKHAi ■ MALRO I 





A partire età questo mese sarà 
data precedenza, per la pubbli* 
caziorte, ai lettori che avranno 
inviato in unico “blocco” alme* 
no dieci mini-programmi d$ 
una riga. 

Ciò allo scopo evidente dì 
semplificare il lavoro di scelta, 
già notevole, da parte delia 
redazione. 

I numerosi (ben 28 !) mlcroìi- 
stati di questo numero sono 
opera di Maurizio DeM’Abate. 
Se non specificato diversa- 
mente, possono esser digitati 
su qualsiasi computer Commo- 
dore. E’ ovvio; comunque, che 










#=1 


#9 


#= 5 


Interrupt 64 - Aumentando la frequenza 
di chiamata dell’interrupt IRQ e settati - 
do il flag di ripetizione tasti si ottiene 
questo simpatico effetto., . 

1 POKE 56325 , 1 : POKE 85 
0 ,£55 


## 2 

Strisce 64 - Sul video compariranno delle 
strisce in movimento di caratteri maiu- 
scoli e minuscoli, alternativamente; pro- 
vando a tenere premuto un qualsiasi ta- 
sto il movimento cambia verso, 


Motore 64 - Si udirà il rumore di un mo- 
tore che aumenta gradualmente la sua 
velocità fino a„. 

1 FOR 1=1 TO 100 i POKE 
54296 , 15: POKE 54296, 

0 : FOR T" 1 TO 1 00 - 1 : N 
EXT s NEXT 


#« 

Superbirò 64 - Al centro del video com- 
parirà un simpatico uccellino che batte 
velocemente le ali. 


Kandomiisic 64 - Il SID emette suoni ca- 
suali £he danno origine ad una musica 
molto ricca di armonia, 

1 8=54272 : POKE 3+24,15 
ì X = I NT ( 9 9 # R ND ( 1 ) ) ; PO 
KE S + 8 ,X t POKE S+!3,2 
55tPQK£ 5+11,33: GOTO 
1 


=#=10 

Freccia - Una velocissima freccia percor- 
rerà per qualche secondo il vostro 
schermo. 


1 FOR 1=1 024 TO 2023 :R 
OKE 1,1: NEXT : FOR 1 = 1 
TO 1 0000 i POKE 53272 
,2 1 ! POKE 53272 ,23! NE 
XT 


1 PR INT" rCLEflR 1 * : POKE 
1524,81 ! FOR 1 = 1 TO 1 
000: POKE 15£3,35:P0K 
E 1525,73 : POKE 1523, 
74: POKE 1525, 75: NEXT 


1 PRINT" COLE ARI"? :FOR 
1=0 TO 1000 :PR INT "— > 
:FOR G= 1 TO 10:NEX 
T:PR INT" [2 LEFT1 "? 
:f^XT 


#3 ' #= 7 


#=11 


Fischio 64 - Facendo girare questa riga il 
SIP emetterà un fischio acutissimo e 
straziante che si udirà fino a 200 metri di 
distanza se tenete il volume ai massimo. 

1 9=54272: FOR 1*0 TO 2 
4: POKE S + l ,0: NEXT: PO 
KE S+24 r 15 1 POKE S+S, 
240: PQKE 8,255 : POKE 
S + l ,255 : POKE S + 4, 17 


#4 

Randomuze 64 - Viene disegnato sul vi- 
deo un Labirinto pseudocasuale, E + inte- 
ressante notare «ime in questo caso la 
casualità dia luogo ad un ottimo risulta- 
to; è una routine preziosa per [ vostri 
videogamcs t ma è altrettanto divertente 
provarla immediatamente p magari se* 
guendo con un dito il percorso, 

1 FOR 1=1024 TO 2023 :P 
OKE I ,77.5+RND< 1 ) (NE 
XTiWAIT 138,1 


Colpo d’occhio - Comparirà per una fra- 
zione di secondo un numero da 0 a 10 t Il 
vostro compito sta neLT individuarlo e nel 
rispondere correttamente alla domanda 
successiva. 

1 N= INT (RND <Ì)*li):PRJ 
NT " C CLE AR ] " ; N : FOR 1= 

1 TO 50: NEXT: INPUT ■ 
tOLEBRlQU8LE tt ;Z: IF Z 
-H THEN PR I NT a ESATTO 

t i « 

H S 


* #8 

Terremoto 64 - Fate girare questa linea e 
tutte le informazioni presenti sul video 
verranno distratte a causa di un catastro- 
fico terr.. anzi, videomoto. Si esce trami- 
te RUN/STOP & RESTORE 

I FOR 1=0 TO 255 ì POKE 
53270 , 1 : NEXT 


Riflessi 64 - Dopo il RUN il computer 
aspetterà un po' di tempo (sempre diffe- 
rente) e poi colorerà lo schermo di bian- 
co, Appena avvertite il cambiamento 
cromatico premete immediatamente un 
tasto; se il tempo di risposta è buono 
(sarà raro) lo schermo viene pulito, altri- 
menti comparirà normalmente la scritta 
READY. 

t Pi=TIj 8 = 5328 1 : POKE B, 

6: FOR 1 = 1 TO 999*RND 
<1 ) iNEXT:P0KE B , 1 :PO 
KE 198,0: Ufi IT 193,1 : 

IF CTI-AK30 TMEN PR 
INT* ICLEAR 3 11 


#=12 

Metronomo 64 - Un aiuto ai musicisti ed 
ai compositori’ il metronomo. E’ neces- 
sario dare in input la frequenza (0 - velo 
cissìmo; 20 - lentissimo) e il computer 
scandirà il tempo senza errori. 
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ì INPUT " lCLEARIFREQ. 
0<eO”;F:FOR Z~i TO 3 
333: POR 1=1 TO F*1B0 
ì NEXT : POKE 54£96,!5: 
POKE 54296 ,0!NEXT 


#13 


Reset 64 - Premendo simultaneamente 
RUN/STOP & RESTORE non otterre- 
te la re inizia lizzazione di alcune variabili 
(come al solito), ma il reset totale del 
sistema; perderete quasi irrimediabil- 
mente il programma in memoria. Le 
istruzioni in questa riga modificano il 
puntatore alla routine di NMI gettandolo 
per “guardare'" dalla locazione 64738 in 
poi, 

ì POKE 792,2£6;POKE 79 
3 f 252 


#14 


Orologio - Immettete nella variabile TT$ 
l’ora (formato: TI$T“HHMMSS"), can- 
cellate lo schermo e date il RUN; avrete 
costantemente sul video l’ora esatta. 

1 PRINT" [HOME ] I£ DO 
UINI " ! LEFT* <TI$,2) f * : 

”;mid$<TI*,3,e>; " t n ; 
RIGHT$<TI$,£>:GOTO I 


#15 


Geometria - Date in input la lunghezza 
della circonferenza e ottenete raggio, 
diametro e area del cerchio in questione. 

I INPUT " CCLEAR 3C IRC H ' 

C * R -C/CS^kt ) :p=R*2s ft = 
ipRINT"RàGG";R: 
PRINT''0 IAM' 1 lOiPR INT" 
AREA " ; A 


#16 


Geometria 2 - Date in input la lunghezza 
dei raggio ed otterrete circonferenza, 
diametro ed area del cerchio. 


1 INPUT 1 ICLEAR ]RAGG" ; 
R!C=R*£*rf:0=R*£: A=R* 
R**riPRINT"CIRC";C:PR 
I NT "D I AM “ ; D : PR INT " AR 
EA";A 


#17 


Geometria 3 - Date in input la superficie 
ed ottenete raggio, diametro e circonfe- 
renza del cerchio. 

i INPUT " CCLEftR ]ftREA“ ; 
A:R=SQR(B,/ff > :D^R*£!C 
=*D fr ** PR I NT "CI RC 11 J C * P 
R I NT "DI AM " ; D : PR I NT " R 
AGG J ' ; R 


#18 


Tabellina - Date in input il numero di cui 
volete ottenere la tabellina (es. : 3=3, 6, 

9....). 

1 INPUT “ ICLEAR] [DONNI 
tB I ANCO INUMERÒ ";NsFO 
R 1=1 TO 10sPRINTN*I 
JNEXT 


#19 


Voce - Incredibile!! un qualsiasi Commo- 
dore pud parlare e pronunciare chiara- 
mente la frase “BERE FA BENE” con 
questo programma. Da provare subito. 

1 A$=”BERE 11 !g$= "FA BEN 
E"! «=5467: POKE A,96f 
S YS A : P R I NTLEF T$ < A $ , £ 

); "F " ? LEFT$<B$,£ ) ì " ! 

Il 


#=20 


Test editor - Lungi da tessere considera- 
to un word processor, questo è un pro- 
gramma di scrittura, li testo viene scritto 
sullo schermo e viene stampato a buffer 
pieno (ogni 80 caratteri) od alla prima 
pressione del tasto REI URN; purtrop- 


po non è possibile tare correzioni (!). 
Premendo cursor down si otterrà la stam- 
pa in minuscolo e si tornerà in maiuscolo 
corni cursor up. Questa riga è Tideale per 
scrivere testi brevissimi (titoli, eoe.) sen- 
za tirare in ballo un programma più 
impegnativo, 

l CL03E 4: OPEN 4 f 4 1 GEI 
A$*PRINTA$; ; PR INT#4 
... : GOTO 1 



Leve - Viene dato in input il peso A, la 
sua distanza dal fulcro (braccio di A) ed il 
peso B, Si otterrà la lunghezza del brac- 
cio di B perchè la leva stia in equilibrio. 

I PR INT" ECLEAR 3 [DOWN] [ 

R 1 6HT ] [NERO LA F 

B * : INPUT "PESO A ,f ;F! 
INPUT H BR A ";B e INPUT 
' PESO B " ; G J PR INT“BR 
B=";P*E/C 


#22 


Inverti parole - Questa riga inveite la 
parola o la frase data in input in tutti i 
sensi. Provare per vedere, 

1 INPUT A$sF0R I =LEN< A 
*) TO 1 STEP 

I ^1 >:NEXT: 

PR INTCHR$< 18>l “ [DOUN 
I [BIANCO]* ;£$ 


#23 


Nobreak 64 - Tramite questa routine si 
neutralizza il tasto RUN/STOP e quindi 
anche la combinazione RUN/STOP & 
RESTORE, E 1 possibile riabilitare il tut- 
to con la POKE 808,237, 

I POKE 808 ,225 AREM DI 
ABILITA RUN/STOP 
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#25 


#=26 


Sinusoide - La riga genera una sinusoide 
in movimento composta da parole. Mo- 
dificanndo la parola nel programma si 
può ottenere una titolatrice. 


1 FOR A=0 TG 1 00 STEF 
■£! Y*SIN(A) iPRINT Tfì 
BCIBfcY+18); "TITOLO ” ! 
N£XT 


Tricolore- Una coloratissima bandiera 
italiana viene disegnata a tutto schermo 
sul video del vostro Commodore. 

BIANCO] 

[ROSSO 1 

"! sNEXTLWAIT 198,1 
1 PR I NT " [ HOME ] " ; : FOR I 
-0 TO £4 SPRINT 11 [RVS ! 
[VERDE! [ 


Rem 64 - La riga stampa sul video la 
scrina “ **** COMMODORE 64 

BAS...” presa direttamente dalla ROM. 

1 FOR 1=58483 TO 58580 

eprintchrscpeekc i>>; 

SPOR T=1 TO 5001NEXT 
: NEXT 


Maurìzki LWL Abate 


Nota Bene 

Ale urie righe fra quelle pubblicate sembrano possedere più di 80 caratteri e, come tali, inaccettabili dal computer, 

Nei casi in cui ci si accorga che la riga è troppo lunga, è necessario ricorrere alle abbreviazioni dei comandi così come indicato 
nell 'appendice specifica riportata nel manuale del computer in vostro possesso 
Ad esempio invece di scrivere PRINT è possibile abbreviare col punto interrogativo (?). Invece di PQKE potete scrivere li 
carattere “P ,J seguito dal carattere che viene visualizzato premendo contemporaneamente il tasto shift insieme con "Q' 1 Tutte le 
abbreviazioni possibili, lo ripetiamo, sono riportate in una delie appendici di qualsiasi manuale Commodore. 

Nel caso sbagliate a digitare \ microlistati che superano, in lunghezza, gii ottanta caratteri (SYNTAX ERROR o altri tipi di 
errore), è necessario, per sicurezza, ribatterli per intero e non apportare modifiche alla riga visualizzata con l’istruzione LIST 


ATTENZIONE!!! 


A tutti i 

Commodore Computer Club 


Molti circoli si sono aperti e molti sono usciti allo ^scoperto” dopo il nostro invito ad aprire un Computer Club, apparso sul N. 21 di C.C.C 

Allo scopo di rendere un servizio migliore ai nostri lettori che intendano contattare uno di questi simpatici circoli culturali, i segretari dei circoli 
stessi sono pregati di compilare il seguente tagliando, o sua fotocopiale di inviarlo in busta chiusa (affrancata secondo le vigenti tariffe postali) a: 

Systems Editoriale 
Servizio Notizie Computer Club 
Viale Famagosta, 75 
Milano 

La completa compilazione dell’intera scheda, è INDISPENSABILE per la pubblicazione gratuita sulla nostra rivista. 


Nome del club: ..... Sede del club: Via 

C.A.P. Città Frov. . Tel. Prefisso. N. ..... ........ 

Presidente. «... Segretario. N. soci fondatori: . r .r. ........... ........ 

N. di soci finora iscritti: ...... Data di fondazione: Giorni di apertura della sede: 

Orario di apertura: Corti pule rs disponibili (specificare): .... 

Periferiche disponibili (specificare): Programmi disponibili (N. approssimativo): ... ..... 

Videogiochi N.: ... — ........... ....... — „. Professionali N.: ... rr .. ,.. Biblioteca tecnica N. volumi: ............. , ri . f ., r 

N. abbonamenti a riviste italiane: N. abbonamenti a riviste straniere: Quota di iscrizione L 

(Specificare se annuale, mensile ecc ) r . ........ ........... r . .................. ....... . 

Attività previste: Bollettino periodico emesso: Attività già svolte: 

Eventuali sponsor Disponibilità alla sponsorizzazione (sì /no): . 


TI sottoscritto presidente del Computer Club autorizzo la Systems Editoriale a diffondere notizie riguardanti 

le attività del circolo culturale citato anche se pervenute in redazione in via non ufficiale. 

Dichiaro inoltre che le informazioni comunicate corrispondono al vero c che, in caso di difformità accertata da parte dì incaricati della Systems 
stessa, Commodore Computer Club, allo scopo di tutelare la buona fede degli utenti delta rivista, si riserva il diritto - dovere di avvertire i propri 
lettori nel modo e nella forma che riterrà piti opportuni. 


In fede 



computer System 

s.a.s. di Gloriano Rossi e C. 

C.so Porta Nuova 46 - 20121 Milano 
Tel. 02/6599547-65751 15 


rivenditore autorizzato 


Commodore 

ItaKellMsoTnMfe] 



Software 


Prodotti 

Accessori 

Assistenza 

Assistenza software per Commodore, Sanyo, NCR, Sirius-Victor e tutti i 
personal compatibili IBM-PC, 

KHMODEM, il demodulatore ideale per la trasmissione e ricezione dei dati 
(Baudot, ASCII, RTTY, CW). 


Rivenditori di zona: 

CREMA: EDP ANSWER di A. Guerci - Via Borletto i - Tel. 0373-59140 




SPECIALE ò 


La simulazione può essere considerata una vera 
e propria scienza. Cosa succede se... 

Questa è la base di qualsiasi tipo di simulazione. 
L’ausilio del computer ha enormemente aiutato 
gli operatori di questo settore a partire da applicazioni 
piuttosto banali alla realizzazione di un linguaggio 
ideale per la simulazione bellica: i’ADA. 

La computer-grafica infine ha portato fa simulazione 

a livelli eccelsi. 

E ... con il Commodore? 

Il Flight Simulator II ne è un validissimo esempio. 
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II primo approccio con U Flight Simulator li 
è proprio inerente alia fase di decollo. 

Siete suda pista . Un pò di rullaggio, azione sui 
flapSf date gas e via un bel giro fra te nuvole. 


Con uno dei due joystick si può intervenire 
sull’assetto del vostro monomotore . 

Quindi si possono eseguire ottime virate , loop ecc. 















// flight Simulator ìt offre anche la possibilità 
di pilotare un aereo da guerra 
contro un avversario temibile. 

Una simulazione che mette 
a dura prova sia la vostra ^ 

bravura di piloti che di *0^ 

abili combattenti 


r . 

§!•«%#!* 


Simulazione dell'evoluzione delle condizioni 
meteriologiche sulVEuropa, mediante 
visualizzazione di una perturbazione che si j 
della Spagna fino verso le nostre regioni 
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zone diversamente colorate 






SIMULAZIONI 

COMMODORE 64 C16 PLUS4 



Automa 

cellulare 


a 


Computer-grafica e 
simulazione: un 
binomio di sicuro 
successo e con 
enormi prospettive. 



- ! programma presentato appartiene al- 
la specie degli “automi cellulari”, organi- 
smi che stanno rapidamente invadendo i 
circuiti dei calcolatori e sono sempre più 
utilizzati nel campo della simulazione al 
computer. 

Ve ne propongo uno: spero vi sorpren- 
da piacevolmente e stimoli a studiare più 
a fondo i! comportamento di questo stra- 
no “animale”. 

Come ogni organismo, esso ha origine 
da un'unica cellula madre (un pixel colo- 
rato sul video), la quale si evolverà dan- 
do origine ad una struttura piramidale 
più o meno variopinta. 

Far girare il programma è molto sem- 
plice: caricate le routine s grafiche di Da- 
nilo Toma (già pubblicate sul N. 14 di 
C.C.C.) e date il RUN. Subito dopo co- 
piate il listato pubblicato su queste pagi- 
ne e lanciatelo. 

Vi verrà chiesto di immettere un codi- 
ce, che potremmo impropriamente defi- 
nire DNA, il quale può essere un numero 
a piacere (con alcune limitazioni che so- 
no comunque chiarite all'interno del 
programma). Battete il tasto Return e 
attendete un tempo proporzionale al nu- 
mero di righe impostato (secondo 
INPUT). 

Pur utilizzando le ottime routincs gra- 
fiche, la “creatura” andrà crescendo con 
una velocità che a qualcuno non sembre- 
rà proprio eccessiva. Questo a causa dei 
numerosi calcoli che il programma deve 
svolgere per determinare il colore e la 
posizione di ogni punto c il tutto si tradu- 
ce con una spesa di qualche minuto per 
ogni disegno, 


Per uscire dalla pagina grafica, una 
volta che i! disegno è terminato, premete 
un tasto. 

L'adattamento al OIA 

Pur essendo rivolto espressamente al 
C64, sono sicuro che i possessori di 06 e 
PLUS4 sapranno facilmente adattarlo. 

1 punti su cui intervenire sono le poche 
linee nelle quali operano i comandi per la 
gestione della pagina in alta risoluzione. 
Cambiate la sintassi dei comandi 
CLEAR, COLOR, TEXT, PLOT e l'o- 
rigine delle coordinate che, per le routi- 
ne s grafiche, È leggermente diversa: cor- 
reggete adeguatamente i valori di W e C 
del listato. 


Sperimentazione e simulazione 

E x questo un aspetto affascinante della 
progr animazione. Oggi sempre più 
scienza c industria sposano la causa della 
simulazione, con indubbi benefici: am- 
piamento delle possibilità di ricerca e 
considerevoli risparmi dì denaro. 

Un esempio: nella fisica delle particel- 
le sono da tempo conosciute le leggi che 
regolano il moto degli elettroni. Si può 
allestire facilmente un esperimento in la- 
boratorio per studiarne il comportamen- 
to all interno del campo magnetico pre- 
sente in un cinescopio, Ma in nessun caso 
saremmo in grado di studiare in “vitro" 
cosa succede airintemo di una stella di 
neutroni: le condizioni sono cosi estreme 


che è chiaramente impossibile riprodurle 
artificialmente anzi, in situazioni così 
spinte anche le moderne teorie fisiche 
cominciano a vacillare. 

Dunque ti si deve rassegnare ad appli- 
care stoicamente le equazioni relativisti- 
che ed estrapolare manualmente i 
risultati? 

Fortunatamente no. 

Naturalmente la cosa non è che ci ri- 
guardi da vicino ma, con l’ausilio di un 
piccolo computer e del software adegua- 
to, anche noi inoompe tenti e squattri nati 
potremmo se non altro appagare la no- 
stra curiosità e vagare ali’ìntemo di un 
acceleratore di particelle o immaginare 
di essere un ricco signorotto di una città 
medioevaie, E ancora viaggiare per lo 
spazio-tempo, buchi neri, quasar... 

II fiocco di neve 

Torniamo con ì piedi per terra e vedia- 
mo cosa possiamo fare con il programmi- 
no proposto. 

Questo è un noto esempio di simula- 
zione grafica conosciuto sotto il nome di 
"automa cellulare”. Per capire come 
funziona, provate ad immaginare come 
si forma un fiocco di neve. Sicuramente 
tutti ne conoscete la sagoma regolare e 
piacevole. 

Non ù altro che l'immagine ingrandita al 
microscopio di un cristallo di ghiaccio c 
riportato spesso ad esempio di come fe- 
nomeni che appaiono casuali e disordi- 
nati abbiano invece un intimo e rigoroso 
ordine 
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La simulazione al computer dello svi- 
luppo di un fiocco di neve è abbastanza 
semplice: nel modello il piano è suddivi- 
so in un reticolo di piccole cellule esago- 
nali; a ciascuna viene assegnato il valore 
0, che corrisponde al vapore acqueo , op- 
pure 1 che corrisponde al ghiaccio. Par- 
tendo da un'unica cellula generatrice* il 
cristallo si accresce ed il valore di ogni 
altra viene calcolato in funzione dello 
stato delle compagne vicine. 

Convertendo le informazioni numeri- 
che in immagini, assegnando ad esempio 
al valore 0 il colore nero ed al valore 1 il 
blu, il risultato è veramente 
sorprendente, 

In natura fenomeni simili sono nume- 
rosissimi, non solo a livello microscopico 
e inanimato, ma estendendosi senza ec- 


cezioni al mondo macroscopico e del 
vivente. 

Basti pensare alla stupenda colorazio- 
ne dì molte conchiglie o alla pigmenta- 
zione della pelle di alcuni animali. 

Il nostro piccolo automa simula un 
processo di accrescimento molto simile a 
quello esistente in natura, nel quale ogni 
singola cellula è condizionata dalle sue 
immediate vicine. 

Ad ogni punto è assegnato un valore 
numerico dipendente dal proprio colore: 

0 = nero 

1 = rosso 

2 = blu 

3 “ giallo 

Non è obbligatorio usare proprio que- 
sti colori e, volendo, è possibile 
cambiarli. 


Il colore viene calcolato facendo la 
somma delle tre cellule poste al di sopra 
del punto in esame, seguendo un deter- 
minato codice (CD): 

543210 somme 
CD — 312010 colori 

Partendo da sinistra verso destra: se la 
somma vale 5 allora il colore sarà il 3 
(giallo). Se vale 4 il colore sarà TI (il 
rosso) e cosi via,,. 

N\B. I disegni più graziosi si ottengono 
assegnando un numero pari di caratteri 
0, 1,2 oppure 3. 

Esempio: 1X1122100 (=8 caratteri). 

Flavio Molinari 


300 REM AUTOMA CELLULARE 
110 REM PER COMMODORE 84 
150 : 

160 REM BY FLAVIO MOLINARI 
170 : 

180 REM CARICARE PRIMA LE 
190 REM RUOTINES GRAFICHE 
£00 REM I DANILO TOMA 
£88 : 

£30 +-TEXT 6, 14 :REM MODO TESTO COL 
ORI ORIGINALI 

300 PRINT CHR$( 147) JREM CLEAR 
310 PRINT "AUTOMA CELLULARE ";CD*!P 
RINT 

3£0 PRINT "DEVI BATTERE UN CODICE C 
GMPOSTO DA UN" 

330 PR I NT "MAX DI 10 CIFRE." 

340 PR I NT "OGNI CIFRA PUÒ' AVERE UN 
0 DI QUESTI" 

350 PRINT^VALORI: 0 , 1 ,£ ,3 " :PR INT! P 
RINT “PROVA, AD ESEMPIO!" 

351 PR I NT “ 3£ 1 1310* 

35£ PR INT“3 1 30220 " 

353 PR JNT "33 1 1 1003£0 " 

354 PR INT*££ 13310" 

355 PRINT" 1001" 

360 PRINTiCLR : INPUT *C0DICE";CD* 
365 INPUT “N. RIGHE < 15- 150) ";W 
370 LR=LEN<CD$> 

380 IF LR=0 OR LR >10 THEN 600 

390 FOR Q=0 TO LR-1 

400 R(Q)=VAL(MID*(CD*,LR-Q,1)) 

410 IF R (Q ) >3 THEN 590 
420 NEXT 


430 : 

440 U= 160! REM ASSE X 
450 C= 100! REM ASSE Y 
460 *-CLEAR:REM PULISCE PAGINA 6RA 
FICA 

470 «-MGRAF 0, £,6,7: REM COLORI 
480 DIM A <3£0 ) 

490 A (l*J> * 1 s REM PUNTO INIZIALE 
500 : 

510 FOR Y= 1 TO NR!B=0 
5£0 GET QfilF Q$=CHR$( 13) THEN 
£90 

530 FOR Q=U-Y TO W+Y 
540 A=R<A(Q-1)+A(Q>+A<Q+1>> 

550 A(Q-l)=BsB=A 
560 +-CQL OR AS+-PLOT Q-W,C-Y,0 
570 NEXT!ACQ-1 )=A:FEXTìPRINTCHR*< 1 
47) 

574 FTEXT6 , 14 SPR INT"PER CONTINUARE 
PREMI UN TASTO" 

576 GET A*: IF A$="-‘ THEN 576 

580 fMGRAF 0 ,£ ,6 ,7 

581 FOR Y=NR-1 TO 1 STEP -i:B* 
0 ' ' 

583 FOR Q=W-Y TO W+Y 

584 A=R<A<Q+1 ) +A (Q ) +A <Q- 1 ) ) 

585 A(Q-1)=B!B=A 

58B «-COL OR A I «-PLOT Q-W,C+Y-NR*£, 
0 

587 NÈXTtA(Q-l >*A!NEXT 
590 GET A$!1F A*="" THEN 590 
595 RUN 

600 PR INT "CODICE ERRATO" :END 
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Gestione 

di 

un mazzo 

di 

carte 

S ni computerà si trovano quasi sempre 
giochi stressanti e così impegnativi che 
piuttosto che procurare distensione cau- 
sano esaurimenti nervosi. 

E pensare che solo Uno a una quindici- 
na dì anni fa il divertimento piu diffuso 
nelle serate, sopratutto quelle uggiose, 
era costituito da una rilassante partita a 
carte. 

Questo gioco sembra oggi riservalo ai 
simpaticissimi nonnetti die, nella mag- 
gior parte dei casi* dichiarano di non ca- 
pir niente di queste cose strane (compu- 
ter) che procurano solo rompicapi. 

Per chi avesse fantasia e nostalgia di 
una serata dì vero divertimento, propo- 
niamo un breve listato che contiene varie 
soubmutincs in grado di gestire un maz- 
zo di carte , per creare tutti i vostri giochi, 
così magari potrete accostare qualche ar- 
zillo vecchietto al favoloso mondo dei 
computerà 

come si usano le subruutines 

Digitate dapprima il listato n.l (nume- 
rato da 10000 in poi, tanto per 
intenderci). 

Per iniziare a gestire un mazzo dì carte 
è ovviamente necessario crearlo ese- 
guendo una subrettine che dovrete sem- 
pre “chiamare" per prima nei program- 
mi in cui vorrete applicare la tecnica de- 
scritta in questo articolo. 

La routine in oggetto è: GOSUB 
63560 

Prima di chiamarla, potete modificare 
alcune variabili per controllare la struttu- 
ra delle carte. 



Se nella variabile CT ponete il valore 

10 ( =n u mero dì carte per ciascuno dei 
quattro semi), sarà creato un mazzo da 
40 carte. Con CT=I3 Io Stesso sarà da 52 
carte, 

Modificando la variabile CG$, che 
contiene esclusivamente il carattere- 
colore. potrete seghe re il colore del boT- 
do delle carte; il colore standard scelto è 

11 blu chiaro. 

Infine, cambiando i colori nella riga 
63900 cambierete i colori dei semi delle 
carte. 

Nella versione pubblicata il colore dei 
semi delle carte sono il bianco e il nero 
invece che rosso e nero, ciò è dovuto a! 
fatto che il rosso, su molti televisori e 
momtors, à illeggìbile su sfondo blu. 

Se vi serve un mazzo di carte mischiate 
potete crearlo con; 

GOSUB63270 

II mazzo mischiato verrà posto nel vet- 
tore MA(X). 

La formula per ottenere una carta dal 
valore contenuto nel vettore è: 

SE=INT(MA/CT) 

VA=MA-3E*CT 

SE-SE-K 

VA*VA+1 

in cui MA à il valore contenuto nel vetto- 
re, SE il seme della carta e VA il valore 
della stessa. 

Per chi non avesse capito la formula 
niente di grave: esiste una subrou fine che 
estrae automaticamente le carte dal maz- 
zo una di seguito all'altra; per utilizzare 
questa possibilità dovete dare: 

GOSUB 63450 :PRI NT SE;VA 


Come simulare, su 
un qualsiasi 
computer , la 
creazione, il 
mescoiamento, la 
distribuzione e la 
visualizzazione di un 
mazzo di 40, 52 o 
qualsiasi altro 
numero di carte. 


cosi i valori verranno aggiornati 
automaticamente. 

Infine per stampare le carte fate: 
GOSUB 63080 
valori si controllano con: 

Y = posizione verticale della carta. 

X— posizione orizzontale della carta, 
SE=scme della carta ((Incarta coperta). 
VA=valore della carta. 

Si noti che la carta 10 è indicata con 10; 
ciò viene utilizzalo per evitare di con fon- 
derc la carta 1 con la carta 10 nelle 
sovrapposizioni. 

Per sovrapporre parzialmente le carte 
sarà opportuno stamparle da sinistra ver- 
so destra e dal Tatto verso il basso in mo- 
do da lasciare scoperta la parte in alto a 
sinistra della carta, che ne permette il 
Completo riconoscimento (valore e 
seme). 

Le righe comprese tra 10000 e 15010 
servono solo per controllare il buon fun- 
zionamento delle subroutinesc non sono 
di alcuna utilità per il loro funzionamen- 
to; quindi in caso di utilizzo delle subrou- 
tmes sarebbe opportuno cancellarle. 
Inoltre è pubblicato un simpaticissimo 
programma (listato DEMO) di esempio 
per l'uso delle carte. E* necessario digi- 
tarlo DOPO aver caricato nel computer 
(o digitato) il programma contenente le 
subroutine dì gestione (da 10000 in poi). 

Studiandolo attentamente potrete me- 
glio comprendere il funzionamento delle 
subroutìnes che si prestano a facili 
modifiche. 
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N.B, Se, dando il RUM, non dovesse 
apparire nulla, è probabile che i! colore 
del fondo e delle carte (semi, bordi, valo- 
ri) siano eguali. In questi casi, prima di 


dare il RUN, cambiate il colore del cur- 
sore (tasto CTRL insieme con uno dei 
tasti da 1 a 8). 

Trovata, in tal modo, la combinazione 


soddisfacente, inserite nelle prime righe 
dì programma il comando idoneo per il 
cambio del colore del cursore. 

Buon divertimento, Lab io Sorgalo 


10000 REM GESTIONE DI UN 

10001 REM MAZZO DI CARTE 

10002 : 

10083 REM DI FABIO SQRGAT0 
18004 : 

10087 PRINTCHRSU 4?) "ATTENDERE" sC0$ = 
CHRSK 154) :CT=10 

10003 GOSUB 63560 :PRINTCHR$< 147); 

10009 FRI NT 11 MAZZO DA 40 CARTE " 

10010 FOR SE=0 TO 4 
10020 FOR VA” 1 TO CT 
10030 Y-CSE+l >*4 
10040 K=<VA"1>*£ 

10050 GQSUB 63030 
10108 NEXT: NEXT 
10508 GOSUB 15000 

1 1000 PR 3 NTCHR$( 147) "ATTENDERE" 

11005 GOSUB 63270: PRINTCHR$< 147); 
11007 PR INT" MAZZO DA 40 CARTE MISCHI 
A TE" 

1 1010 FOR Kl-1 TO 4 
11020 FQR K2~l TO CTìGOSUB 63450 
1 1030 Y* < K 1 + 1 > #4 
11040 X=CK2~1)*2 
11050 GOSUB 63080 
11100 NEXT: NEXT: GOSUB 15080 ! CLR 
12000 PR INTCHRS ( 147 ) "ATTENDERE " t CQ$ = 
CHR$ (154): CT =13 

12005 GOSUB 63560 : PR INTCHRSC 14? ); 
12007 FRI NT "MAZZO DA 52 CARTE * 

12010 FOR SE ”0 TO 4 

12020 FOR VA=i TO CT 

12030 Y*CSE+!)*4 

12040 XMVA-1)*2 

12050 GOSUB 630B0 

12100 NEXTSNEXT 

12500 GOSUB 15000 

13800 PRINTCHRSK 147) "ATTENDERE" 

13805 GOSUB 63270 :PRINTCHR$( 147); 
13807 PR INT "MAZZO DA 52 CARTE MISCHI 
A TE “ 

13010 FOR Kl-1 TO 4 

13820 FOR K2- 1 TO CT: GOSUB 83450 

13030 Y=(K1+1>*4 


13040 X=<K2~1)*2 

13050 GOSUB G30S0 

13100 NEXT : NEXT : GOSUB 15000 s EMO 

15008 PR INT SPRINT "PREMI UN TASTO" 

15005 GET A$:IF A$="" THEM 15005 

15010 RETURN 

63008 REM ********************** 
63010 REM *SUBROUTN£ CHE STAMPA* 
63020 REM * LE CARTE * RICORDA ; * 
63838 REM * X , Y=COOR INA TE * 

63048 REM * SE =SEME CARTA * 

63058 REM * <0=COPERTA) * 

63060 REM * VA =VALQRE CARTA * 
G3070 REM ********************** 
63088 FOR T“ 1 TO 5 

63090 PR INTCHR$< 18); LEFT3K YY$, Y- 1 +T) 
;LEFT$<XXS r X>; 

63100 PR INTCA$<SE r VA , T) ; : NEXT: RETURN 
63200 REM ******************** 

83210 REM * SUBROUTINE CHE * 

63220 REM * MISCHIA LE CARTE * 

63230 REM * E PONE IL MAZZO * 

63240 REM * OTTENUTO NELLA * 

63250 REM * MATRICE MA<X) * 

63280 REM ******************** 

63270 FOR CA=1 TO CT*4 ! MI <CA ) "0 : MA < C 
A ) -0 : NEXT 

63280 FOR CA = 1 TD 4*CT 
63280 RR“ INI CRND ( 1 > *CT *4 ) 

63308 IF MI <RR ) =0 THEN MI <RR ) = 1 : MA <C 
A > "RR : NEXT : C0=0 : RETURN 
63310 GOTO 63230 

63400 REM *********************** 
63410 REM * ESTRAE UNA CARTA * 
63420 REM * DAL MAZZO * 

63430 REM *********************** 
63450 CO=CO+ 1 s IF CO>CT*4 THEN RETURN 
63460 MA-MA < CO) 

63470 SE- INT <MA/CT) 

63480 VA=MA-SE*CT 
63490 SE -SE + 1 J VA =VA + 1 : RETURN 
63500 REM *********************** 
83510 REM * CREA LE CARTE * 

83528 REM * DEI VARI SIMBOLI * 
63530 REM «CON I VALORI COMPRES I * 
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63540 REM * TRA L’ASSO E IL RE * 63730 

63545 REM * CT=10s40 CARTE * 

63546 REM * CT=13i52 CARTE * 63740 

63550 REM ********** ************* 63750 

63560 1F CK* 1 THEN RETURN 

63565 RESTORE :CK«1UF CTO10 THEN C 63760 
T= 13 63770 

63570 READ A$: IF A*< >"***" THEN 6357 63730 
0 63730 

63580 DIM VA$< 1 3 ) ,CA$( 4 , 13 ,5 > ,MI U3* 63800 
4 ) /MAC 13*4 ) 63810 

63590 FOR T = 1 TO 4 : READ SI*<T):NEXT 63380 
63595 IF CT =10 THEN FDR T=1 TO 13:RE S3830 
AD A*iNEXT 63840 

63600 FOR T= 1 TO CTJREAD VA*<T>:NEXT 
63610 B0*=CHR$<194) 63850 

63680 SG*=CHR*< 198) 

63630 IF CO*="” THEN CO*=CHR$U54) 63860 
63640 CP$=CHR*<166)' 63870 

63650 FOR S I * 1 TO 4 63880 

63660 S1$=SI*(SI) 

63670 FOR VA = 1 TO CT 63890 

63680 VA$=VA*<VA) 63800 

63680 CA$<SI ,VA, 1 ) =CHR* <8 13 ) +SG*+SG$ 
+SG$+CHR*(201 ) 

63700 CA3f<SI ,VA ,8 ) =BG$+VA$+CHR$( -32* 

<LEN(VA$)=1 ) )+Sl$+CO*+BG* 63910 

63710 CA$<S1 ,VA,3)=B0$+CHR$<32)+SI$+ 

CQ*+CHR$<38)+BG* 63920 

63780 CA$(SI ,VA,4>=BO*+S1*+CO*+CHR$< 63350 
-38*(L£N<VA$>=1) )4VA$+BO$ 


CA*(SI ,VA,5)=CHR*(202)+S6ÌtSG$ 
+SG$+CHR$(203 ) 

NEXT 

NEXT 

REM *********************** 

REM *CREA LE CARTE COPERTE* 

REM * CHE AVRANNO IL * 

REM * SEGNO UGUALE A ZERO * 

REM *E UN VALORE COMPRESO* 

REM * TRA UNO E CT * 

REM *********************** 

FOR VA= 1 TO CT 

CA$<0,VA,1 >=C0*+" /' +SGÌ+SGÌ+SG 

CA$<0,VA,2)=BQ$+CP$tCP$+CP*+BO 

* 

CA*<0,VA,3)=CA$<0,VA,2> 

CA$ ( 0 / VA , 4 ) =CA$ ( 0 , VA , 2 > 
CA$<0,VA,5)=" +SG$+SG#+SG$+ " J 

IP 

NEXUPRINTCOSJ 

DATA ***," [NERO]*”, " [CELESTE!* 
* / " [CELESTE J*" , " [NERO!*" s REM 
NERO < TASTO CTRL . + I > , CELESTE <C 
om, +7) 

DATA 1 ,£,3,4,5,6,7,8,8, I0,J,Q, 
K 

DATA 1 ,£,3,4,5,6,7/J,Q,K 

FOR JK=0 TO 33:YY$=YY$+CHR$< 17 

) i XX$=XX$+CHR$ < 23 ) : NEXT : RETURN 


IIN.I 

In occasione dello Smau T 32, e dell 'insedia* 
mento ufficiale in Italia della Commodore, 
viene pubblicato il primo mimerò di Commo- 
dore Computer Club, che rappresenta t nel 
nostro Paese, la prima rivista di informatica 
“verticale 1 ', dedicata, cioè, esclusivamente a 
prodotti Commodore. La coraggiosa iniziati- 
va viene vista con scetticismo negli ambienti 
specializzati. "E’ troppo presto - dicevano - 
per proporre al pubblico italiano una rivista 
specifica per prodotti di una sola marca '. 

1 fatti, come è noto, hanno smentito senza 
appello queste affermazioni troppo 
affrettate. 



In questo numero viene presentata, in ante- 
prima (!), la scheda tecnica del Commodore 
64. Questo computer, infatti, è pressoché sco- 
nosciuto in Italia e i programmi pubblicati 
possono girare, infatti, solo sul Vie 20 e sui 
modelli professionali Commodore PET. 


La prima dispensa del mini-corso per impa- 
rare a programmare col Vie, alcuni videogio- 
chi ìn Basic, la presentazione di un paio di 
package professionali, costituiscono il noccio- 
lo del primo numero, oltre alla introduzione 
al codice macchina. 
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SIMULAZIONI 

QUALSIASI COMPUTER 


- - s istorio molteplici modelli matemati- 
ci che descrivono il delicato equilibrio 
dinamico esistente tra predatori e prede 
che occupano* contemporaneamente, lo 
stesso territorio. 

La complessità dì tali modelli è diretta- 
mente proporzionale al grado dì raffina- 
tezza desiderato. Uno dei piu famosi è il 
modello di Lotke -Volterra, le cui solu- 
zioni delle equazioni* costituenti il mo- 
dello, mostrano una variazione ciclica 
del numero di individui* siano essi preda- 
tori oppure prede. Nella figura è riporta’ 
ta una di tali soluzioni, 

Abbondanza di prede equivale ad ab- 
bondanza di cibo per i predatori* che in 
questo modo aumentano di numero. Ma 
molti predatori mangiano molte prede, 
quindi diminuiscono queste ultime, il 
che vuol dire scarsità di cibo e morie di 
molti predatori e cosi via. 

Ogni volta che ci si trova dì fronte ad 
un modello matematico, è lecito chieder- 
si fino a che punto funziona; quanto, 
cioè* siano affidabili le sue previsioni e se 
si renda necessaria una verifica che può 
richiedere anni. Ecco che viene in aiuto il 
computer* per mezzo del quale possiamo 
simulare un semplice ecosistema. Vedia- 
mo sotto quali condizioni l'evoluzione 
segue Tandamento ciclico previsto dalle 
equazioni di Lotk e -Volterra . 


C orisi deraz ìo n i p rei im mari 

Bisogna notare che r and amento cicli- 
co è il risultato di determinate condizioni 
iniziali. Se, ad esempio, mettiamo 100 
squali e 10 pesciolini in una piscina* ci 
aspettiamo che gli squali mangino subito 
i pesci* rimanendo, di conseguenza, sen- 
za più cibo. Quindi questa situazione "li- 
mi te' 5 evolve verso la completa estinzio- 
ne di entrambe le specie. Anche predato- 
ri troppo prolifici possono portare alla 
stessa conclusione. E" chiaro quindi, che 
l'andamento cìclico può ottenersi solo 
con un determinato equilibrio tra molte- 
plici fattori. 

Per realizzare un buon programma di 
simulazione è necessario un compromes- 
so tra raffinatezza di calcolo e velocità dì 
elaborazione c non è facile trovare il giu- 
sto equilìbrio. Per questo motivo il pro- 
gramma proposto prevede l'impostazio- 
ne da input di un parametro che permet- 
te di variare la velocità di elaborazione a 
discapito dell'accuratezza. 

Il territorio su cui le prede ed i preda- 
tori debbono muoversi è ovviamente lo 
schermo del computer, le cui dimensioni 
possono essere cambiate. Più lo schermo 


(territorio) è piccolo, più veloce è il pro- 
gramma (minor numero di “animali"' da 
controllare) ma più approssimativa risul- 
ta la simulazione e viceversa. 


La rappresentazione sterni grafica 

Scegliamo allora di rappresentare i 
predatori con una croce [CHR$(43)J, c le 
prede con un puntino [CHR$(46)]. Que- 
sta rappresentazione serve* a noi osser- 
vatori, per seguire lo svolgimento 
dell’azione. 

Il calcolatore* invece, si trova più a suo 
agio con i numeri. La matrice P(I,J) è 
l'immagine numerica dello schermo. 
Ogni elemento della matrice rappresenta 
un punto del territorio che può essere 
occupato da una preda o da un pre- 
datore. 

Le ipotesi dello simulazione 

Dobbiamo a questo punto definire 
delle regole per il movimento, per la ri- 
produzione, per la nutrizione e per la 
morte dei personaggi che ci accingiamo a 
collocare sullo scenario appena prepara- 
to. Le possibilità sono molte* ma forse È 
meglio non fare le cose troppo 
complicate. 

Supponiamo che gli unici movimenti 
possibili siano quelli verso NORD, 
SUD* EST ed OVEST. Le prede si pos- 
sono spostare solo verso posizioni vuote, 

I predatori invece anche verso posizioni 
occupate da prede, nel qual caso sì nu- 
trono del malcapitato. Non possiamo 
presupporre una riproduzione di tipo 
sessuale, perchè definire i due sessi e 
stabilire le regole di corteggiamento ren- 
derebbe il programma troppo complesso 
(e lento). E* comunque un'idea per una 
possìbile sofisticazione. Allora accon- 
tentiamoci dì specie partenogeniche. 

Dobbiamo definire due periodi di ri- 
produzione, uno per le prede* che gene- 
ralmente sono più prolifiche* ed uno per 
i predatori; dopo un tempo prefissato si 
ha la generazione di un nuovo individuo. 
Inoltre bisogna anche definire un tempo 
di inedia per i predatori* cioè il tempo 
massimo di sopravvivenza senza cibo. 
Questi saranno i parametri di ingresso 
della simulazione. 

lì tempo scorre con salti discreti, che 
chiameremo crono ni. 

] predatori 

I predatori* quando nascono* sono 
rappresentati ciascuno, nella matrice 
PfLJ), dal numero 1000. Questo viene 



incrementato di 1 ad ogni cronone e 
quando raggiunge il valore dt riproduzio- 
ne viene generato un nuovo individuo. Il 
neonato va ad occupare una posizione, 
se libera da altri predatori* adiacente al 
genitore. Se tutte le posizioni sono occu- 
pate Tindividuo non si muove e non si 
riproduce. Dopo questa operazione, sia 
il genitore che il figlio sono posti a 1000. 
Oltre all’età ed alla posizione, è necessa- 
rio* per quanto riguarda i predatori, te- 
nere in conto del tempo di inedia. Que- 
sto viene fatto mediante la matrice 
I N ( 1 . J) , che, alla posizione (I J)* contie- 
ne 0 se in corrispondenza in P(I,J) vi è 
una preda o vi è nulla, altrimenti vi è il 
numero di crononi passati dall'ultimo pa- 
sto* Quindi ogni volta che sì sposta un 
predatore bisogna spostare ed aggiorna- 
re anche il contenuto di IN(I,J). Se trova 
da mangiare viene posto a zero* altri- 
menti va incrementato di 1, Se viene rag- 
giunto il massimo* vuol dire che il preda- 
tore è morto di fame, quindi deve essere 
eliminato dallo schermo. 


Le prede 

Per le prede le cose sono più semplici. 
Infatti non abbiamo problemi di inedia 
perchè* per semplicità, supponiamo che 
il territorio in esame (o pianeta) abbia 
abbondanza di cibo per le prede. 

Le prede appena nate le rappresentia- 
mo con il numero IO* che viene incre- 
mentato e controllato, ad ogni erottone* 
in maniera perfettamente analoga ai pre- 
datori. Raggiunta l'età della riproduzio- 
ne, nasce un nuovo individuo. Sia il nuo- 
vo nato che il genitore vengono posti a 
10. 

Inizialmente il programma deve popo- 
lare si pianeta* sono allora richiesti i pa- 
rametri iniziali riguardanti la densità di 
popolazione c la percentuale di predatori 
rispetto alle prede. 
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Il programma 

Viene preparata la matrice P(1,J) se- 
condo le precedenti indicazioni (linee 
280-320). Si noti che anche l’età viene 
inizialmente attribuita casualmente, per- 
chè, altrimenti, si avrebbe un innaturale 
raddoppio cìclico della popolazione. Le 
linee 335-380 visualizzano la situazione. 
Si scorre la P(l,J) e si accende il sìmbolo 
di preda, quando il contenuto è compre- 
so tra IO e 1000, oppure il simbolo di 
predatore, quando è superiore a 1000, 
altrimenti sì lascia lo spazio vuoto. 

Dopo questa fase entriamo nel cuore 
della simulazione (linee 390^500 ). Biso- 
gna passare in rassegna P(I, J) per trovare 
le locazioni occupate da un qualsiasi indi- 
viduo. Una volta trovate è necessario 
cercare, nei relativi dintomi, ì posti occu- 
pati, che ovviamente non possono essere 
raggiunti. Ricordiamo che, dal punto di 
vista dei predatori, una locazione è non 
raggiungibile so lo se occupata da un altro 
predatore. La variabile "C" serve allo 
scopo. Infatti assume un valore differen- 
te per ogni configurazione di posti occu- 
pati. Ad esempio, se NORD e SUD non 
sono liberi, cioè P(I+1,J) e P(M,J), al- 
lora * 4 C” assume valore 3; di conseguen- 
za alla linea 450 verrà eseguito il terzo 
sottoprogranxma, che sposta casualmen- 
te l’individuo in esame (se è una preda) 
in una delle posizioni libere, in questo 
caso EST o OVEST. Ricordiamoci che 
gli spostamenti possibili sono 4 
(NjS^O), quindi necessitiamo di 4 rou- 
tine che li implementano, e sono precisa- 
mente quelle che iniziano alle lince 590 


605 620 635, Inoltre per ogni configura- 
zione di posti liberi è necessario scegliere 
casualmente tra una, due, tre o tutte c 
quattro queste routine, L’operazione è 
svolta dalle linee 510-585. Le istruzioni 
da 655 alla fine svolgono la stessa funzio- 
ne per ì predatori. Questi devono essere 
trattati in maniera diversa, in quanto 
possono raggiungere anche posizioni oc- 
cupate da prede. La variabile “S” per- 
mette di distinguere predatori da prede, 
lì modo di operare è analogo a quello di 
“C f \ La matrice M(I,J) serve per evitare 
che un individuo venga spostato due vol- 
te durante lo stesso erottone Se infatti 
M(I, J}=1, vuol dire che l’indivìduo è sta- 
to spostato durante il crono ne corrente. 
Le variabili XX e YY hanno funzione di 
contatori delle prede e dei predatori. Il 
loro valore è continuamente visualizzato 
sulla prima riga dello schermo. 



Una buona idea sarebbe quella di me- 
morizzare il numero di predatori e prede 
per ogni simulazione (tschennata), uti- 
lizzando il registratore oppure il disk dri- 
ve, e, dopo un centinaio di crononi, 
“ grafi curii” con istogrammi ed effettuare 
un confronto con gli andamenti previsti 
dalle equazioni Lotke-Volterra, 

Ci auguriamo che quanto detto risulti 
chiaro, in modo che coloro che sono inte- 
ressati possano ampliare il programma 
con le modifiche che ritengono più 
opportune. 

Per finire un dettaglio per la digitazio- 
ne del programma. Gli unici simboli gra- 


ti ci presenti si ottengono con i tasti del 
cursore CRSR-LEFT, CRSR-DOWN e 
CLR-HOME eventualmente premuti in- 
sieme a SHIFT. 


Come è stato detto, tl programma 
pubblicato gira su qualsiasi computer a 
patto di effettuare le poche modifiche 
relative alle variabili indicami la prima 
locazione di memoria schermo, la colo- 
razione del bordo e del fondo de! video. 

Allo scopo di velocizzare la simulazio- 
ne stessa (accontentandosi, ovviamente, 
di una minore accuratezza della simula- 
zione), provate a digitare il valore 7 alla 
richiesta del numero delle righe e delle 
colonne. Ogni simulazione, con valori 
così bassi, richiede pochissimi secondi. 

Volendo, invece, una maggiore accu- 
ratezza, si rende necessario ricorrere alle 
dimensioni massime dello schermo, lo 
questo caso si consiglia dì compilare il 
programma in modo da ridurre drastica- 
mente il tempo necessario per ciascuna 
simulazione. 



Gli interessati, che posseggono it lin- 
guaggio Oxford Pascal per il C-64, posso- 
no consultare il N.12 della rivista Com- 
modore (sempre della Systems editoria- 
le) su cui è pubblicata una simulazione 
analoga dal nome WA-TOR, 

Antonio Visconti 



FIG, ] Una reazione intrica predatore -predai tuia iut ini otte alte equazioni di h&tkt*V ot ferra 
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100 REM PREDATORI E PREDE 
110 REM DI 

115 REM ANTONIO VISCONTI 
138 REM QUALSIASI COMPUTER 
1 £5 : 

135 REM SM, CM, NC, J, 1 DEVONO 
ESSERE 

140 REM CAMBIATI SECONDO IL COMF 
UTER 

145 REM UTILIZZATO 
150 s 

155 SM= 1 034 * CM=55£S6 :NC=40 5 REM C 
-64 

165 1=53380: J =53381 : REM C-64 
170 : 

175 REM SM=MEMQR I A SCHERMO 
180 REM CM=MEMOR IA COLORE 
185 REM NC=NUMERO CARATTERI PER 
RIGA 

130 REM INCOLORE BORDO 
1 S5 REM J =COLQRE SFONDO 
300 : 

310 REM DATI INIZIALI 
315 : 

EE0 DIM P<36,41 ) ,m<36,4i) ,M<36,4 

1 ) 

£35 POKE 1,14 SPORE J,14 
330 PR I NTCHR$ < 1 44 ) 

£35 IhFUT 11 ICLEAR ] t DOWN INUMERÒ DI 
RIGHE 3014 LEFT] n ;LCUF LC 
<0 OR LC >34 THEN £35 
340 INPUT * [DOWN INUMERÒ DI COLONN 
E 30 [4 LEFT3";LRslF LR<0 OR 
LR >40 THEN 340 

345 INPUT r, IDOm] DENSITÀ - INIZIA 
LE 0*315 LEFT] 11 ; D i IF D<0 OR 
D > 1 THEN £45 

350 INPUT " [DOWN! PERCENTUALE INIZ 
I ALE PREDATORI 0,315 LÈFT 

3 ";NS! IF NS < 0 OR NS > 1 THEN 35 
0 

355 INPUT 18 ED014N3PERI0D0 DI RI PRO 
BUZ IONE PREDE 3 14 LEFT3 S< ;P 
P:PP=PP+ 10 

£60 INPUT w E DOWN] PERI ODO DI RI PRO 
DUZ IONE PREDATORI 8 E4 LEFT 
1 " JSP:SP=SP + 1000 

365 INPUT 11 [DOLIMI INEDIA DEI PREDA 
TORI 3 [4 LEFT] VM 
370 PRINT*' ICLEAR H 3 DOWN] ATTENDER 


E PREGO 11 
375 : 

360 REM * PREPARA PRIMA CONFI GUR 
AZIONE * 

£85 : 

396 FOR 1=0 TO LC+1 :PC I ,0>=1000:P 
< I ,LR+ 1 ) = 1060 sNEXTI 
395 FOR J =0 TO LR + 1 : P C0 , J ) = 1 000 : P 
(LC+1 , J > = 1000 : NEXTJ 
300 FOR 1 = 1 TO LCiFOR J = I TO LR 5 A 
=RND < 1 ) 

305 IF A< 1“D THEN PU,J)=0:GOT 
0 330 

310 A~RND (1)5 IF A<NS THEN P(I,J)= 
1000 + 1 NT (RNB<l)*SP+l) : GOTO 33 
0 

315 P< I ,J) = 10 + INT(RNDU )#PP + 1 ) 

330 NEXT J,I 
335 PRINT" ICLEAR3 " 

330 : 

335 REM ** VISUALIZZAZIONE 
340 : 

345 FOR 1=1 TO LCiFOR J=i TO LR : M 
CI ,J) =0s NEXTJ, I 

350 XX =0 * YY=0 ■ FOR 1 = 1 TO LCsFOR J 
=1 TO LR:K=J+I*NC 
355 IF PCI , J > =0 THEN POKE SM-l+K, 
33 « GOTO 370 

360 IF P(I,J><1000 THEN POKE SM-1 
+K ,46 SPORE CM-l+K, 1 ?XX=XX+1 sG 
OTO 370 

365 POKE SM-l+K, 43 SPORE CM-I+K,0: 

YY=YY+i:GOTO 370 
378 NEXTJ, I 
375 FRI NT" EHOME 3 

" :REM 30 CARA TT 

ERI 

3S0 PRINT 11 [HOME] PREDE =“;XXJ" P 
REDATOR I = ” ’ YY 
385 i 

390 REM ** SCORRIMENTO MATRICE P 
CI,J> PER RILEVARE LE POSIZIO 
NI OCCUPATE ** 

395 : 

400 FOR 1 = 1 TO LC s FOR J=1 TO LRsC 
=B 1 S =0 

405 IF P<I,J>=0 OR M< I , J ) < >0 THEN 
495 

410 IF P(I-1,J)<>0 THEN C=C+US>S 
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+PU-1,J> 

415 IF PU + 1,J)<>0 THEN C=C+2:S=S 
+P(1+1,J)*2 

420 IF P<I, J-1)<>0 THEN C=C+4:S=S 
+P(I,J-1)*4 • 

425 IF P(I,J+1)<>0 THEN C=C+8:S=S 
+PC I ,J + D*8 

430 IF PU,J>> = 1000 THEN 480 
435 : 

440 REM ** SPOSTAMENTO PREDE 
** 


445 

450 


455 

460 

465 

470 

475 

480 


4S5 


490 

495 

500 

585 

510 

515 

560 

585 

530 

535 

548 


ON CGQSUB 580,525,530,535,540 
,545 , 550,555 ,560 ,585 ,570,575 , 
580,585 

IF O0 THEN A%-RND < I ) *4 + 1 s ON 
AXGGSUB 598,605,620,835 
GOTO 435 

m 

m 

REM ** SPOSTAMENTO PREDATO 
RI ** 


S = I NT < 8/ 1 080 > s IF I N C I , J > >M TH 
EN P ( I , J ? =0 ! INC I , J > =0 s GOTO 49 
5 

□N SGOSUB 665,670,675,680,665 
,690,695,700,705,710,715,720, 
725,730,735 

IF S=8 THEN AX^RNDC 1 >*4+1 :ON 
AXGOSUB 740,760,780,300 
NEXT J,I 
GOTO 345 

H 

« 

REM ** SOTTOPROGRAMMI SPOS 
TAMENTO PREDE ** 


AM=RMD< 1 ) *3 + 1 :ON 
62 0,5 35: RETURN 
AV.=Rf«(n*3 + l :ON 
620,635: RETURN 
A7.=RND( 1 >*2 + 1 :ON 
635: RETURN 
A7.=RNDU )*3 + l :0N 
605,635: RETURN 
A7=RND< 1 >*2+I iON 
635: RETURN 


A7GOSUB 605, 
A7G0SUB 530, 
A7G0SUB 620, 
ft^GOSUB 530, 
A7G0SUB 605, 


545 A7.=RND < D *2 + I i ON A7G0SUB 530 , 


635: RETURN 
550 GOSUB 635: RETURN 


555 A7=RND< 1 > *3 + 1 : ON A7G0SUB 590, 
605 ,620: RETURN 


560 A7=RND < 1 ) *2 + 1 : ON A760SUB 605, 
620: RETURN 

565 A7.=RND ( 1> *2 + 1 : ON A7G0SUB 590 , 
620 : RETURN 
570 GOSUB 620: RETURN 
"575 A7=RNDC 0*2+1 iON A7G0SUB 590, 
605 : RETURN 

580 GOSUB 605: RETURN 
585 GOSUB 590: RETURN 
590 QQ = I - 1 

595 IF P(I,J)>PP THEN P<QQ,J>=10: 
P< I,J>=10:RETURN 

600 P(GQ,J>*P<1 ,J>+1 :p< I , J) =0 :RET 
URN 

605 QQ*I+1 :M<QG,J)=1 
610 IF P<I,JOPP THEN P<QO,J) = 10: 
P< I ,J) = 10:RETURN 

615 P<QQ,J>=PU,J> + 1:P<I,J>*0:reT 
URN 

620 QQ=J“ 1 

625 IF- P< I ,J) >PP THEN P<I,QQ>=10: 
P(1 ,J>=10:RETURN 

630 P< I ,GQ>=P(I,J)+1:P<I,J)=0: RET 
URN 

635 GQ=J+1 :M< I ,QQ>=i 
640 IF P(I,J)>PP THEN P<1,QQ>=10: 
P<I,J)=10: RETURN 

645 P(I,QQ>=P( I,J>+1 :P(I ,J)=0:RET 
URN 
650 : 

655 REM ** SOTTOFRGGRAf-MI 
TAMENTD PREDATOR I * * 

666 : 

665 AX=RhE<O*3 + l:0N A7G0SUB 
780, 800: RETURN 

670 A7=RND C O *3+ 1 : ON AXGOSUB 
780 ,800 : RETURN 
675 A7=RND(1)*2+1:0N AXGGSUB 
800: RETURN 

680 AX=RMD (0*3 + 1: ON A7G0SUB 
760, 800: RETURN 
685 A7=RND( 0*2+1 :0N AMGOSUB 
800: RETURN 

630 A%=RND(1)*2+1:0N A7G0SUB 
800 : RETURN 

695 GOSUB 800: RETURN 
700 A7=RN0( 0*3+1 :0N A7GQSUB 
760, 780: RETURN 
705 A7=RND( 0*2 + 1 :0N A7G0SUB 
780 : RETURN 

710 A7.=RND( 0*2 + 1 :0N A7J3QSUB 


SPOS 

760, 

740, 

780, 

748, 

760, 

740, 

740, 

760, 

740, 
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780 s RETURN 

715 GG3UB 780: RETURN 

720 fì/.-RNDC i >*2 + 1 :ON R/1GOSUB 740, 
760 : RETURN 

725 GOSUB 780 s RETURN 

730 GOSUB 740 i RETURN 

735 INC I , J ) = I N C I , J ) + 1 S RETURN 

740 □□ = I - 1 

745 IF F C I , J > >SP THEN PCGQ,J>=100 
0;PU ,J)-1000s INC I , J) = IN( I 
+ 1 £ RETURN 

750 IF F <QQ , J > >0 THEN IN<I,J)=-i 

755 PCQQ,J>“P< I ,J) + 1 :PC I ,J)=0S INC 
QQ , J ) = INC I , J )+ i s INC 1 ,J)-6;RET 
URN 

760 QG=1+1 :MCQG,J)=! 

765 IF PCI,J>>SP THEN PCQQ f J>=100 
0sP< I , J ) * 1000 : INC I r J > - INC I ,J) 
+ 1 ; RETURN 


770 IF P (QQ , J > >0 THEN IN<I,J)-=-l 

775 P<QG,J)=P( I/J)+l!P<I/J>=0S INC 
GQ,J)-IN< I , J ) + ! J IN< I , J ) -0 5 RE T 
URN 

780 QQsJ-i 

785 IF PCI,J>>SP THEN P<I,QQ>=100 
0SPC I , J ) = 1000 5 INC I ,J) = IN< I ,J> 
+1 s RETURN 

780 IF PCI ,QQ > >0 THEN IN<I,J)=-I 

795 PCI ,QQ )=P<I,J)+l!P<I,J>-0! INC 
I ,QQ) = INCI,J) + 1 : I N< I 7 J ) -0 sRET 
URN 

800 QQ*J+i:MU,QQ)*l 

805 IF PCI,J>>SP THEN PC 1,00) = 100 
0SPC1 ,J>=1000: INC I I ,J> 
+ 1 : RETURN 

810 IF PCI ,QQ) >0 THEN IN(I,J>=-1 

815 PCI ,QG>=PC I ,J)+1 iP(I,J)=0« INC 
I ,QQ)=INCI ,J)+1 : INC I , J ) =0 ! RET 
URN 


HN*4 

Commodore Club, proponendo un videogio- 
co che* come protagonista, ha nientemeno 
che Craxi! Perfino *"La Repubblica", “La 
Notte’ 1 e altri periodici hanno parlato di Cra- 
jùrunner, indovinato nome de 3 videogioco in 
oggetto. 







- », • i- 


. „ 


La presentazione di un semplice program- 
ma di bioritmi è un'ottima scusa per una co- 
perti ria un pò inconsueta io una rivista di in- 
formatica, Il tema dei personaggi del Palazzo 
è stato ripreso, proprio «n paio di setti ma ne fa 
(ottobre '85), dall'altra rivista su nastro. 
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QUALSIASI COMPUTER 


Variazioni demografiche 



D a molti decenni, ormai, il problema 
della sovrappopolazione preoccupa sui- : 
diosi (e non) che indicano, per la Terra, 
presunti limiti massimi consentiti, spesso 
in contraddizione tra varie teorie. 

Sì sa, infatti, che le risorse del pianeta 
non sono indefinite e, prima o poi, oc- 
correrà pensare seriamente ad evitare i 
sprechi e annullare (?) inquinamenti che, 
come è noto, rappresentano, ai fini dei j 
bilanci ecologici, veri e propri sprechi di 
ossigeno, acqua, piante, minerali ed al- 
tre materie prime in generale che vengo- 
no, di fatto, rese inutilizzabili 
Con un piccolo computer non è certo 
possibile realizzare un modello matema- 
tico che , tenendo conto dei numerosi pa- 
rametri in gioco (diverse migliaia), riesca 
a fornire con sufficiente approssimazio- 
ne l'immagine statistica di una "situazio- 
ne” sodale, politica, umana, economica. 

Il miero programma che presentiamo, 
perù, vuole di spronare i più bravi a ten- 
tare in tal senso: non è detto che modelli 
particolarmente interessanti non possa- 
no esser riprodotti da un pìccolo Com- 
modore e, dì conseguenza, pubblicar è 
sulla nostra rivista. 


Come realizzare su 
computer una 
simulazione 
qualsiasi (come 
r accrescimento 
della popolazione 
mondiale ), 
sviluppando, da una 
semplice idea, una 
serie di elaborazioni 
più difficili a dire che 
a digitare. 


Il modello matematico 

Per modello matematico si intende 
quel particolare processo di elaborazio- 
ne per cui, avendo come presupposto 
alcune ipotesi convertibili in numeri, si 
può prevedere l'evoluzione di alcuni fe- 
nomeni con un'approssimazione pitmo- 
sto precìsa, tale da assicurare una certa 
credibilità alla simulazione stessa. 

Se, ad esempio, teniamo conto del pe- 
so di un'autovettura, della sua velocità, 
del tipo di pneumatici che monta e del 
tipo di manto stradale, è possibile studia- 
re un modello matematico in grado di 
calcolare lo spazio di frenata ad una certa 
velocità. E* ovvio che più dettagliato è il 
modello, più precisa risulta la simulazio- 
ne. Se non viene considerato il caso della 
strada bagnata in caso di pioggia oppure 
non si tiene conto della prontezza di ri- 
flessi o del caso di una frenata in curva o 
su fondo ghiaioso, il modello risulterà 
meno preciso e di uso meno universale. 

In alcuni casi, come quello relativo al 
calcolo dello spazio di frenata, La simula- 
zione non costituisce grossi problemi, 
dato che risulta agevole individuare, e 


h 
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quantificare* tutti gli aspetti dei 
problema* 

In altri casi, invece* i fattori che entra- 
no in gioco sono talmente numerosi, e 
talvolta anche poco chiari, che il modello 
cui si per- iene può essere considerato 
attendibile solo in una certa percentuale 
e per fenomeni relativi ad un arco di 
tempo piuttosto limitato. Come esempio 
noto a tutti, si pensi al programma 
AFRODITE col quale il servizio meteo- 
rologico delFaeronautica italiana tenta, 
ogni giorno, di indovinare il tempo del 
giorno dopo. 

La premessa 

Un qualsiasi modello matematico par- 
te da alcuni punti “fermi” ben precisi, 
che hanno il compito di considerare una 
certa realtà pur se affetta da un’inevitabi- 
le approssimazione 

Non è infatti possibile prevedere, ed 
inserire nel calcolatore, le migliaia di casi 
particolari che possono realmente pre- 
sentarsi nella situazione oggetto 
dell'ipotesi* 

D’altra parte, prendere in considera- 
zione i fattori che possono introdurre va- 
riazioni molto piccole all'interno dì un 
quadro generale non può che rallentare 
l’elaborazione senza, peraltro, apporta- 
re un apprezzabile vantaggio rispetto ad 
un modello più facile e schematico ma 
che presenta il vantaggio di essere elabo- 
rato velocemente e semplice da com- 
prendere. 

L'idea 

Si è paniti dalla considerazione che gli 
abitanti della Terra, o di una sua parte, 
possano esser suddivisi in diverse "clas- 
si 1 ' di età. 

La Statistica, infatti, ricorre spesso a 
simili espedienti per studiare meglio al- 
cuni fenomeni come gli interessi cultura- 
li, il modo di trascorrere il tempo libero, 
la distribuzione del reddito, il consumo 
di particolari bevande o altro 

E' necessario evitare suddivisioni 
troppo semplicistiche (es* suddivisione 
della popolazione soltanto in bambini e 
adulti) che possono trarre in inganno al- 
cuni aspetti della simulazione. 

Se, ad esempio, vogliamo conoscere 
l’età di coloro che fumano sigan, il venire 
a conoscenza che il 100% dei consumato- 
ri si colloca presso gli “adulti ' piuttosto 
che presso i “bambini” è certamente 
un'informazione limitativa* ■ 

Suddivisioni troppo raffinate possono 
egualmente "disperdere” l’attenzione di 
chi si occupa del problema, vanificando il 
fine della simulazione stessa. 


Se* ad esempio, dividiamo per fasce di 
età gli allievi che frequentano una scuola 
superiore (età minima: 13 anni, massima 
18), è sufficiente, a seconda del numero 
di allievi stessi (che supponiamo di alme- 
no un migliaio), suddividerli in una ven- 
tina di “classi”: quattro trimestri per cia- 
scun anno (per ognuno dei cinque anni) 
sono idonei per avere un'idea della situa- 
zione, Una suddivisione più accurata, 
come una classe per ogni mese di ciascun 
anno, potrebbe dare un numero di infor- 
mazioni “eccessive” col risultato di ren- 
dere illeggibile la suddivisione* Ciò non 
toglie, tuttavia, che una suddivisione più 
accurata, soprattutto in presenza di una 
popolazione più numerosa (es. studio 
della distribuzione dell’età di tutti gli stu- 
denti italiani), possa mettere in evidenza 
aspetti altrimenti non rilevabili. 

La popolazione terrestre 

b 

E p risaputo che il numero di abitanti 
della Terra (o di una qualunque nazione 
o. . . famiglia) varia a seconda di due ele- 
menti: la natalità e la mortalità* 

Con l’aumentare del numero di figli 
che ciascuna coppia mette al mondo, cre- 
sce il numero di individui della 
popolazione . 

Analogamente, una mortalità infanti- 
le ridotta ed una longevità elevata, con- 
tribuiscono ad aumentare, in un territo- 
rio, il numero di abitanti che vivono 
"conte m poran e a me n te' ' ‘ . 

Suddividendo per classi di età la popo- 
lazione, ad esempio, di una nazione, 
possiamo trarre informazioni utilissime* 
La tabella pubblicata si riferisce □ tre 
ipotetiche popolazioni (A, B, C) di al- 
trettanti territori i cui 50 milioni di abi- 
tanti sono suddivisi in quattro fasce di 
età: dalla prima* in cut è riportato il nu- 
mero di individui con età compresa traO 
e 15 anni, alFultima (numero di individui 
con più di 60 anni di età ) * 

La tabella, è bene dirlo, “fotografa” 
un particolare istante dell’evoluzione 
delle tre popolazioni e non può fornire 
indicazioni utili sulle epoche precedenti 
o successive la situazione considerata* 

La popolazione “A" rappresenta una 
situazione piuttosto insolita (=lìmite), 
dato che in ognuna delle classi di età è 


presente lo stesso numero di individui 
(10 milioni). 

Gli individui la cui età è compresa traO 
e 15 anni sono piuttosto numerosi nella 
popolazione “B" (ben 20 milioni), men- 
tre il numero di anziani (più di 60 anni) è 
addirittura nullo* Si può arguire che la 
natalità è elevata e che non vi è, nella 
nazione esaminata, un adeguato svilup- 
po della medicina o dell'assistenza soda- 
le dato che nessun adulto ricce a supera- 
re i 60 anni. 

Osservando i dati della popolazione 
“C" (al contrario della “B" che viene 
considerata “giovane”)* possiamo inve- 
ce notare che il numero di individui gio- 
vanissimi è modesto in confronto a quelli 
di età maggiore* Ciò può esser dovuto ad 
un'elevata mortalità infantile oppure al 
fenomeno tipico delle società occidentali 
che si avvicinano alla cosiddetta “cresci- 
ta zero” per cui il numero di abitanti 
tende a rimanere costante col passare 
degli anni. La popolazione “C\ tenendo 
conto delPinfluenza percentuale delle 
varie classi di età, è da consìderersì “vec- 
chia”. Questa anzianità della popolazio- 
ne porta* come t noto, al problema degli 
anziani che, nei decenni precedenti, non 
era conosciuto se non in minima misura, 
dato che la vita media non era elevata 
come al giorno d’oggi. 

In tutti e tre i casi, profondamente 
diversi tra loro, risulta evidente che la 
conoscenza del solo totale di abitanti (50 
milioni) trarrebbe in inganno il lettore. 

Come abbiamo già detto, inoltre, una 
tabella del tipo esaminato non fornisce 
un sufficiente numero di informazioni su 
una certa popolazione, proprio perchè 
rappresenta i dati di un solo anno di quel- 
la particolare popolazione. Interessante 
risulta, invece, conoscerne la storia, vale 
a dire la variazione della composizione 
della popolazione, magari anno per 
anno* 

Ecco, dunque, che il nostro computer 
può intervenire simulando l’accresci- 
mento (o la diminuzione) della popola- 
zione considerata, partendo da certe 
premesse supportate da ipotesi che pos- 
sono essere scelte a piacere. 

La simulatone e le sue ipotesi 

Il ragionamento su cui si basa il sempli- 
cissimo listato riportato in queste pagine 


Pop. 

0-15 

15-3(1 

30-45 

45-60 

>60 

Tot. 

A 

10 

10 

10 

10 

10 

50 

B 

20 

25 

3 . 

2 

0 

50 

C 

7 

10 

15 

10 

8 

50 
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inizia dal suddividendo la popolazione 
nelle quattro fasce di età, prima esamina- 
te (vedi figura). Chiunque abbia un po’ 
di pratica, si accorgerà, ad ogni modo, 
che non vi sono difficoltà di sorta per 
variare il numero delle fasce di età. 

La seconda ipotesi presa in esame con- 
siste nel fatto che, tra le quattro* solo a Ile 
due classi centrali (15-30 e 30-45 anni) 
appartengono, per ovvi motivi, gli indivi- 
dui in grado di mettere al mondo figli. 

Si prevede, inoltre, un coefficiente di 
“sopravvivenza 1 " (il cui valore può varia- 
re tra zero ed uno) che può esser diverso 
per ciascuna classe di età. 

La terza considerazione tiene conto 
del numero di figli che ciascuna coppia 
può mettere al mondo aH'interrio del 
periodo- fascia di età considerato. Per de- 
terminare l'accresci mento della popola- 
zione, in base al numero di figli, si t 
ipotizzato che gli individui di ciascuna 
classe di età sono per metà maschi e per 
metà femmine. 

Nel listato pubblicato si ipotizza, in 
altre parole, che se in un certo momento 
vi sono 32.5 milioni di individui apparte- 
nenti alla fascia di età compresa tra 30 c 
45 anni, vorrà dire che 16.25 milioni sa- 
ranno costituiti da maschi e altrettanti da 
femmine. Tenendo inoltre conto che per 
fare un figlio è necessaria una femmina e 
almeno (!) un maschio c supponendo 
inoltre che, nel periodo di quindici anni 
considerato (30-45) , ogni coppia mette al 
mondo “in media" un solo figlio* ia po- 
polazione risulterà aumentata, sempre 
ne 11' in ferva Ilo considerato, di 16.25 mi- 
lioni di individui. 

li B ' a ppr ©ssimazìone 
appare nte mente eccessi va 

L’ipotesi appena esaminata può venir 
considerata inattendibile dato che, come 
è noto, nessuna delle ipotesi prese in 
considerazione viene verificata nella 
realtà. 

Non capita mai, infatti, che metà della 
popolazione sìa di sesso maschile e metà 
femminile (e senza considerare le altre 
tipologie emergenti!). Non si verifica 
mai, inoltre, che tutti gli individui si ac- 
coppino, nè, tanto meno, che ciascuna 
coppia metta a! mondo sempre e soltanto 
un solo figlio nel quindicennio conside- 
rato e, se ciò non bastasse, metà esatta 
dei nati appartiene ad un sesso e metà 
all’altro! 

Considerando la simulazione in modo 
globale, la contraddizione sparisce però 
immediatamente. Analizziamo a tale 
scopo, per esemplicità, una sola fascia di 
età (30-45) e paragoniamo fra loro due 
ipotesi: quella apparentemente contrad- 


dittoria ed un'altra, al contrario, più 
realistica, 

h 

Prima ipotesi 


Popolazione: 32.5 milioni di persone 
appartenenti alla stessa fascia di età. 
Maschi: 16.25 milioni 
Femmine: 16.25 milioni 
Coppie capaci di generare figli: 16.25 
milioni 

N. figli generati da ciascuna coppia nel 
quindicennio: uno solo 
Situazione alla fine del quindicennio: 

Totale popolazione adulta: 32 5. Ma^ 
schi: 16.25. Femmine: 16.25. Figli: 16,25 

Seconda ipotesi 


Popolazione: 32,5 milioni 

Maschi: 12,5 milioni 

Femmine: 20 milioni 

Coppie capaci di generare figli: 10,22 
milioni (vi sono, cioè, anche nubili e celi- 
bi oltre che coppie) 

N. di coppie che non mettono al mon- 
do figli: 1 milione 

N. di coppie che generano un solo fi- 
glio nel quindicennio considerato: 4.8 
milioni 

N . coppie che generano due figli (nello 
stesso periodo): 2. L2 milioni 

N. di coppie che generano tre figli: 2.4 
milioni 

Situazione alla fine del quindicennio 
considerato: 

Totale popolazione adulta: 32.5 
milioni 

Figli generati: 16,24 (=0 + 4.8*1 + 
2.12*2 +2.4*3) 

Come si può notare il risultato finale è 
praticamente identico nelle due ipotesi 
pur se queste sono sensibilmente diverse 
tra loro. 


Come funziona iì programma 


Si parte, come già detto* dall’ipotesi 
che la popolazione viene suddivisa in 
quattro fasce di età assegnate agli ele- 
menti del vettore À(i). Un'altra premes- 
sa consiste ne 11 'assegnare, per semplici- 
tà, lo stesso valore (100) al numero di 
individui di ciascuna fascia. Si parte* in 
altre parole, con una popolazione di 400 
unità suddivisa in quattro settori. 

100 può essere indifferentemente il 
numero di centinaia, di migliaia, ai mi- 


lioni, di miliardi odi... semplici individui 
da considerare. E T superfluo ricordare 
che è possibile assegnare un valore com- 
pletamente diverso sia in assoluto sia per 
classe apportando le modifiche del caso 
alla riga 1060. 

Viene „ in seguito* considerata la "so- 
pravvivenza* ($GPR.) di ciascuna fa- 
scia, Per sopravvivenza sì intende un 
coefficiente Z(ì), che può esser diverso 
da fascia a fascia, compreso tra zero ed 
uno. 

Il valore unitario indicherà che il 100% 
della popolazione della fascia considera- 
ta sopravvive fino alla fascia successiva. 
Una valore 0,83 indicherà al programma 
che solo T83% della popolazione soprav- 
vive mentre il rimanente 17% perirà. Al- 
tri esempi: 

0,?-7Q% 

0 . 1 = 10 % 

0.31=31% ccc. 

Un'altra ipotesi che è facile riscontra- 
re, consiste nel limitare alla seconda (15- 
30) e terza fascia (3045) la possibilità di 
generare figli. La possibilità di generare 
individui da parte della popolazione 
compresa tra 0 e 15 anni, come pure 
quella oltre i 45 anni, si considera inin- 
fluente ai fini della simulazione. 

Facendo ora riferimento alla figura al- 
legata si può facilmente notare che, al 
termine di ogni quindicennio considera- 
to, sì verificano i seguenti fenomeni: 

* la popolazione della prima (seconda, 
terza. , .) fascia è cresciuta dì 15 anni e di 
conseguenza farà pane, nel ciclo succes- 
sivo, della seconda (terza, quarta...) fa- 
scia tenendo conto, ovviamente, della 
sopravvivenza impostata precedente- 
mente; 

• net quindicennio considerato le cop- 
pie appartenenti alla seconda e terza fa- 
scia hanno generato un certo numero di 
figli, i quali appartengono tutti indistin- 
tamente alla prima fascia. Questa, anzi, 
può esìstere solo grazie ai figli generati. 
Se, infatti, si suppone che il numero di 
figli generati sia sempre nullo. Liniera 
popolazione perirebbe nel giro di 60 
anni! 

Il numero di figli messi al mondo è 
dato dal numero di coppie della fascia 
considerata moltiplicato per il numero di 
figli che, mediamente, ciascuna coppia 
mette al mondo, li numero di coppie è 
ovviamente dato dal numero di individui 
della fascia diviso per due. Per superare 
tale eccessiva semplificazione, riscontra- 
ta precedentemente, è possibile agire sul 
numero di figli che ciascuna coppia può 
generare. 

Non sono, pertanto, privi di significa- 
to valori di 1,7 oppure 2.3 o altri valori 
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rappresentanti il numero "medio” di figli 
per coppia ‘"media” . 

Il numero di individui che supera il 
limite dei 60 anni non viene considerato 
(non ce ne vogliano i lettori meno giova- 
ni!) ma, come già detto, sarà semplicissi- 
mo aggiungere fasce anche dì ultracen- 
tenari. 



Dato il consueto RUN, appariranno 
alcune domande che ora esaminiamo; 
SOPRAW, FASCIA 1? 

Rispondere con 1 se la mortalità infan- 
tile è ipotizzata nulla. In caso contarlo 
digitare un valore non minore di zero e 
non maggiore di uno. (es.r 0,80 0.92 
eccetera) 

Comportarsi allo stesso modo alla ri- 
chiesta della sopravvivenza dette altre tre 
fasce di età. 

N, FIGLI FASCIA 2? 

Rispondere tenendo conto delle consi- 
derazioni fatte precedentemente. (es + : 2 
1.8 3.2 eccetera) 

In modo analogo rispondere alla suc- 
cessiva domanda. 

Quando compare: N. CICLI? 


Indicare it numero di simulazioni che 
devono essere effettuate tenendo rissi i 
parametri impostati con le ris|>ostc pre 
cedenti, (cs, : 3) 

A questo punto ogni volta che si pre- 
me un Tasto verrà effettuata una simula- 
zione, vale a dire verrà visualizzato il 
numero di individui presentì in ciascuna 
classe di età al termine di un periodo di 
quindici anni. 

Una volta esaurito il numero di simu- 
lazioni indicate (NC), il cursore si posi- 
zionerà automaticamente in corrispon- 
denza della prima domanda effettuata. 
A questo punto potrete battere sempli- 
cemente il tasto Return nei casi in cui si 
desidera lasciare inalterata qualcuna del- 
le ipotesi impostate precedentemente. In 
caso contrario digitate le variazioni che 
riterrete più opportune. 

Nel caso in cui il totale (variabile TT) 
degli abitanti assuma il valore nullo (ttut- 
ti morti!), il programma si ferma 
automaticamente. 

Per i più bravi 

Il programma si presta, data la sempli- 
ce linearità, a sofisticazioni non 
indifferenti. 


Chi vuol tasformare il semplice listato 
in un vero e proprio modello matematico 
può* tra l'alto, inserire numerose modifi- 
che in modo che vengano prese i n esame, 
durante l T e la bo razione* varie situazioni 
Ecco, per gradi di difficoltà, alcuni 
s ugge rientriti di sofisticazioni possìbili: 

- Considerare più fasce di età, 

- Inserire la memorizzazione dei risultati 
parziali in matrici che, richiamate in mo- 
do opportuno, visualizzino in seguito 
tutte te simulazioni effettuate. 

Visualizzare, al fianco del numero di 
indivìdui di ciascuna classe, la percentua- 
le della classe stessa rispetto al totale 
della popolazione. 

Inserire, in modo Random o sistema- 
tico, un evento "distruttore" (guerre, ca- 
restie, in sufficienza di produzione ali- 
mentare) non appena la popolazione su- 
pera un certo valore globale. 

- Inserire una riduzione automatica dèlia 
eventuale mortalità infantile in seguito 
ad ipotetiche migliorie del tenore di vita 

- Calcolare il numero di adulti dediti al- 
l'agricoltura e considerare un'estensione 
credibile di aree coltivabili in modo da 
verificare la possibilità di nutrire la 
popolazione. 


Alessandro de limone 

... E tante altre Idee 

|j Come si può facilmente osservare le modifiche da apportare sono, praticamente, infinite. 

I lettori che realizzeranno simulazioni di qualsiasi altra natura, soprattutto se semplicissime come quella 
, proposta, sono pregati di mettersi in contatto telefonicamente con la Redazione allo scopo di concordarne la 
pubblicazione, li numero di telefono è sempre it solito: 02/8467348 (meglio se al venerdì) 


Prl»ri*fi*rHid«a 
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TUTTO 

PER LA PULIZIA 
DEL COMPUTER 

F 


Distributore esclùsi yq per l'Italia 


00 1 99 Roma , Vìa Catalani, 23 - Tel. 8392646 - 839343 $ - Tele* 621288 


Speciali confezioni, in formato 
economico., studiate appositamente per 
ì a pulizia dei minicompi/ters , contengono 
prodotti, focili da us are, che assicurano 
una corretta protezione dei video, 
tastiere, drive 3 " 122 , J r 1 / 4 . 
In vendita anche presso i negozi Buffetti, 


la polvere, il fumo, k contaminazioni 
esterne, possano deteriorare le 
apparecchiature a cancellare i dati. 
Un costante uso dei prodotti pulizia, 
mantiene inalterati dischi castri, 
superila, carte di credito, ecc. 

Tutti i prodotti sono omologati dalle 
migliori case producici c’> drive. 


parisi i sftì 


I 0G0 
1610 
1015 
1050 
1030 
1040 
1050 
1060 

1070 

1080 

1090 

1 100 
1 1 10 
1 1£0 
1 130 
1 140 
1 150 
1 180 


REM SEMPLICI SIMULAZIONI 
REM PER QUALSIASI COMPUTER 

i 

» 

REM INCREMENTO DEMOGRAFICO 

j 

i 

REM A * DE S IMO NE 

Ab 

« 

A( n = 100:A<£) = 100!fì<3> = 100ifì<4 

> = 100 

PR 1 NTCHR* ( 1 4? ) J i XX$= * * ; FOR 1 = 1 
TO 8iXX*=XX*+CHR*< 17) sNEXT 
XX$=CHR$K 13)+XX$!XT=B; FOR 1=1 
TO 8 : SP* =SP*+CHR$<3£ ) : NEXT 
PR1NTCHR*( 19 >;: INPUT 'SOFR.FAS 
CIA 1 " J 2 < 1 ) 

INPUT SOPR . FASCIA 2";Z(2> 
INPUT *SOPR . FASC I A 3"iZ(3) 
INPUT "SOPR.FASCIA 4 Z (4 > 
II-FUT "N. FIGLI FACCIA S’INS 
INPUT "N. FIGLI FASCIA 3";N3 
INPUT “N. C ICL I " ; NC 
FOR XI =1 TO NC 


1 170 

1 180 
1 190 
1203 
1210 

1220 


1230 

1240 

1250 

1260 


1270 

1275 

1280 


B< 1 ) = <ft(2)*2 <2>*N2/2>+(A<3)*Z < 
3 > *N3/2 ) 

B (2 > =A < 1 > *2 < 1 > 

B<3)=A(2)*2 (2 ) 

B (4 > =A (3>*Z <3 ) 

TT=0 ìFOR 1 = 1 TO 4:TT=TT+B( I) JN 
EXT 

PRINTXX*:FOR 1=1 TO 4ipRINT"FA 
SCIA" I;B< I >CHR$C157>; iREM <pu 
NTO E VIRGOLA > 

REM PERCENTUALE: PRINTB<n*10 

0/TT 

PR INTSP* : NEXT I 

FOR 1=1 TO 4iA< I> =B< I > iNEXTI !X 
T =XT + 1 

PRINTCHR$( 17 )CHR$C 18> *TOT. ="TT 
CHRS( 157 >SPS" N,CICLI= M JXTCHR* 
C 157>SP$ 

PRI NT "PREMI UN TASTO" 

GET A$iIF A$=" " THEN 1275 
IF TT THEN NEXTXlsGOTO 1030 
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L’ UTILE 

COMMODORE «4 


Beep... rumble ... 
squash... e tanti altri 
effetti speciali per i 
vostri giochi. 



Effetti 

sonori 


T 

A] SIC, ovvero tormento e delizia perle 
nòstre orecchie, è il microprocessore adi- 
bito a gestire il suono del C-64. 

Tralascio la solita premessa atta a ma- 
gnificare la potenza e versatilità di que- 
sto chip, doti peraltro assai reclamizzate 
e conosciute da parte degli afirionados 
dei prodotti Commodore, 

Bisogna però riconoscere che la fama 
di computer “musicoso” se l'è ampia- 
mente meritala e costruita non solo gra- 
zie al battage pubblicitario, ma anche 
proprio per le sue qualità intrinseche sul- 
l’incredibile Commodore 64. Non corro 
certo il rischio di apparire plagiato dai 
media televisivi facendo tali affermazio- 
ni e, senza scendere al livello del tizio 
che, mentre mangiucchia una caramella 
balsamica dice: "mìa suocera aveva ra- 
gione'”, bisogna dare merito alla casa 
americana di aver mantenuto appieno le 
promesse fatte. 

Ma mi fermo qui, altrimenti mi lasce- 
rei prendere dall 1 entusiasmo e, contra- 
riamente a quanto mi ero promesso, vi 
angustierei con tante chiacchere parlan- 
dovi di effetti galattici,., anzi mostruo- 
si,,, cosa dico, esplosivi... 

Come osare te routine 

% 

Non vogliamo neppure fare l'ennesi- 
ma lezione su come sfruttare appieno le 
capacità sonore del nostro personal. 

Agli affezionati lettori il meno det 
giorno di C.C.C. propone: antipasti leg- 
geri, stuzzicanti e facili da digerire. 

Tante ricettine semplici e pronte per 
Fuso; le potrete inserire così come sono 
nei vostri "piatti forti", oppure spizzica- 
re dì tanto in tanto per deliziare i vostri 
timpani. 

f programmi sono tutti ampiamente 
REMmati e, ove possibile, si è cercato di 
evitare i comandi di salto (quali GOTO, 
GOSUB, .,) affinchè non abbiate proble- 
mi nel renumerarlL 

Infatti il fine dei listati proposti è ap- 
punto quello di essere inseriti nei vostri 
programmi: basta mettere un RETURN 
come ultima riga e potranno essere ri- 
chiamati in qualsiasi momento tramite 
un GOSUB, 

I programmi sono costruiti in maniera 
tale da poter essere modificati con facili- 
tà, per avere la possibilità di ottenere gli 
effetti desiderati. 

Se infatti, nonostante tutta la mia buo- 
na volontà, il boing o il rumble non sa- 
ranno di vostro gradimento, li potete 
prendere, tagliare, spezzettare, agitare e 
incollare. 


Se però il "vostro” elicottero non è più 
un elicottero ma è diventato una zanza- 
ra, allora. . non prendetevela con gli altri 

(cioèC.C.C.). 

Esiste però la possibilità che voi siate 
tipi dall 'ottimismo incrollabile, di quelli, 
per intenderci, che davanti ad un pac- 
chetto con dentro dieci sigarette dicono 
che è ancora mezzo pieno. Allora sapre- 
te certamente cogliere il lato positivo 
della faccenda ed apprezzare Ti riatteso 
risultato. 


! registri del siti 

Giusto perchè voi abbiate sottomano i 
"ferri del mestiere” (fatene buon uso, 
non distruggete le mie fatiche...}, viene 
riportato un sintetico specchietto sui re- 
gistri utilizzati da! SID. 

Per indicare i vari indirizzi si farà riferi- 
mento alla variabile SI, che tutti i musi- 
maniaci conosceranno a memoria: 

SI =54272 

Flavio Molinari 
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100 

- ■? 

\ 

REM ***** ******************** 

680 

POKE 

SI ,81 

110 

REM * SIRENA * 

6S0 

POKE 

SI + 1 ,S£ 

120 

REM ************************* 

700 

NEXT 


130 

■ 

r 

710 

POKE 

SI+4,0 

140 

SI =54272 

1000 

REM 

************************* 

150 

POR Q=0 TO 24 

1010 

REM 

* TELEFONO * 

160 

POKE SI +Q / 0sNEMT 

1020 

REM 

************************* 

170 

POKE SI +5, 255: REM ATTACK/DEC 

1030 

■ 

« 



AY 

1040 

SI =54272 

180 

POKE SI +24, 15: REM VOLUME 

1050 

FOR 

q=0 TO 241REM RESET 

130 

POKE SI +3, 14: REM TOCCO SIMUL 

1060 

POKE 

SI +Q ,0 : NEXT 


ATO 

5 870 

POKE 

SI+B,£55:REM SU=Ì6:RE=1 

200 

Al =55:81-42 


5 

! 

210 

POKE SI+1,60 

1080 

POKE 

SI +3 ,5: REM TOCCO SIMULA 

220 

POKE SI +4,65 


TO 


230 

FOR K = 1 TO 14 «REM N. CICLI 

1080 

POKE 

SI +4, 65: REM DM3A RETTAN 


SIRENA 


SOLARE 

£40 

POKE SI+1,A1 

1 100 

POKE 

S I +24 , 3 5 

250 

POR Q= 1 TO 406 iNEXT 

1 1 10 

POR 

H= 1 TO 4: REM NUMERO TR 

260 

POKE S I + 1 ,B 1 


ILL I 


270 

FOR Q= 1 TO 400 : KEXT 

1 120 

POR 

K=1 TO 50: REM TRILLO 

£80 

IF K >7 THEN POKE SI+24,21- 

1 130 

POKE 

Sl + 1 ,46 


K : REM SIRENA CHE SI ALLONTANA 

1 140 

FOR 

G=1 TO 5: NEXT: REM PAUS 

280 

IF K=7 THEN A1=54:B1=41 


A 


300 

IF K = 10 THEN A 1 =53 :B1 =40 

1 150 

POKE 

Sl + 1 ,0 

310 

NEXT 

1160 

NEXT 


328 

POKE SI +4,0 

1 170 

POR 

Q= 1 TO 3000 : NEXT 

336 

POKE S I +24,0 

1 180 

PEXT 


506 

REM ************************* 

1 190 

POKE 

SI+4,0 

518 

REM * RAZZO * 

1500 

REM 

******** ***************** 

520 

REM ************************* 

1510 

REM 

* LASER * 

530 

V 

* 

1520 

REM 

************************* 

540 

SI 1=54272 

1530 

V 

■ 

« 

558 

FOR Q=0 TD 24 

1540 

SI =54272 

580 

POKE SI+D,0:ì^EXT 

1550 

FOR 

G=0 TO 24 

570 

POKE SI +24, 15 

15S0 

POKE 

3 1 +Q ,0 : NEXT 

530 

PR=600 : REM FREQUENZA 

1570 

VL = 12 : REM VELOCITA * LASER 

590 

POKE S I + 1 , I NT ( FR/256 ) 

1580 

POKE 

S I +24 ,15 

' 600 

POKE SI ,PR-£56* INTCFR/256 ) 

1590 

POKE 

Sl+6,240 

! 610 

POKE SI +5,0 

1600 

FOR 

K = I TO 2: REM NUMERO RA 

620 

POKE SI +6 ,255 


GOl 


630 

POKE SI +4, 123: REM RUMORE 

1610 

POKE 

SI +4,65 

640 

POR K=250 TO 1 STEP - 1 5 REM 

1620 

POKE 

SI+3,5 1 


DURATA DECOLLO 

1630 

FOR 

T= 100 TO 250 STEP VL 

650 

FR=FR+ 100:REM AUMENTA LA FREQ 

1648 

POKE 

SI ,T 


UENZA, 

1850 

POKE 

SI+I ,250’TiNEXT 

660 

IF K<45 THEN POKE S1+24,K/ 

1660 

POKE 

SI+4, 129 


3: REM ABBASSA IL VDLUME 

1670 

POKE 

SI+1 ,2 

670 

S£= INT < FR/256 > : SI =FR-256*S2 

1680 

FOR 

Q = 1 TO 100: NEXT 


40- Commodore Computer Club 


1/ UTILE 


1699 

POKE 

91+4,0 

3030 

■ 


1700 

FOR 

Q = 1 TO 50 • NEXT 

3040 

31=54272 

1719 

NEXT 


3058 

POR 

Q=0 TO 24 

j 8000 

REM 

************************* 

3060 

POKE 

si+Q,0shorr 

80 10 

REM 

* AEREO 1 * 

3070 

POKE 

SI +6, £40 

8020 

REM 

************************* 

3080 

POKE 

SI +3, 5 

2030 

» 

m 


3090 

POKE 

Sl+4,65 

gB40 

SI =54272 

3100 

POKE 

SI +24, 15 

2050 

FOR 

Q=0 TQ £4 

3110 

FOR 

K=1 TO 12 {REM IMUI'ERO A 

2080 

POKE 

S 1 +Q ,0 s NEXT 


LLARMI 

£070 

POKE 

SI + 1 ,£ 

3120 

FOR 

H a 40 TO 106 STEP 2 

2080 

POKE 

SI +3,4 

3130 

POKE 

S I + 1 ,H : REM FREQUENZA 

2090 

POKE 

S I +6 ,£40 

3140 

FOR 

Q= 1 TO 10! NEXT 

alee 

POKE 

SI+?,Ì2 

3150 

hEXT 


2110 

POKE 

SI+8,10 

3160 

POKE 

SI + 1 ,0 

2120 

POKE 

Sl+Ì0,5 

3170 

FOR 

0=1 TO 100 s NEXT! REM PA 

2130 

POKE 

SI + 13, 19£ 


USA 


2140 

POKE 

Sl+14,16 

3180 

MiXT 


2150 

POKE 

S I + 15 ,£ 

3130 

POKE 

SI +4,0 

2160 

POKE 

91+17,6 

3500 

REM 

************************* 

£179 

POKE 

SI +£0,64 

3510 

REM 

* ELICOTTERO * 

£180 

POKE 

SI +£2 ,30 

35£0 

REM 

************************* 

£ 190 

POKE 

SI +23,243 

3530 

* 

i 


2200 

POKÈ 

SI +£4,31 

3540 

SI =54272 

2210 

POKE 

S 1 +4 ,85 

3550 

POR 

Q=0 TO £4 

2220 

POKE 

SI + l 1 ,65 

3560 

POKE 

S 1 +Q ,0 s NEXT 

2230 

POKE 

91+ 18,85 

3570 

POKE 

S I +24 ,15 

2500 

REM 

************************* 

3580 

POKE 

SI +1,15: REM FREQUENZA 

£510 

REM 

* MANI AC * 

3530 

POKE 

S 1 +6 ,7* 16 s REM SU=7 :RE=0 

2520 

REM 

************************* 

3800 

FOR <31 = 1 TO 90» POKE SI +4,1 

2530 

* 

■ 



£9; REM RUMORE 

2540 

S 1*54272 

3610 

POR 

0= 1 TO £0! NEXT! REM GIR 

£550 

FOR 

Q=0 TO £4 sREM RESET SU 


0 MOTORE 


ONO 


3620 

POKE 

SI +4,0 

£560 

POKE 

SI +Q ,6 5 NEXT 

3630 

FOR 

Q=l TO 50! NEXT sREM PAU 

2570 

POKE 

SI +6, £55: REM ATTACK/DEC 


SA 



AY 


3640 

NEXT 

Gl 

2530 

POKE 

S I +4 , 1 7 s REM TR I ANGOLARE 

4000 

REM 

************************* 

£590 

POKE 

S I +24 ,15 

4010 

REM 

* MARE * 

2600 

FOR 

K = 1 TO 100 s REM NUMERO 

4020 

REM 

************************* 


CICLI 

4030 

<■ 

■ 


£610 

POKE 

SI+1 ,RND( 1 ) *£56: REM FRE 

4040 

SI =54272 


QUEN2A CASUALE 

4050 

FOR 

0=0 TO £4 

2620 

FOR 

Q=1 TO 65; NEXT 

4080 

POKE 

SI +Q,0:NEXT 

2630 

hEXT 

i 

4070 

POKE 

5 1 +G ,255 

2640 

POKE 

SI +4,0: POKE SI +£4,0 

4080 

POKE 

SI +5,0 

3000 

REM 

*********************** ** 

4090 

POKE 

S I +4 , 123.REM RUMORE 

3010 

REM 

* ALLAR1C * 

4100 

POKE 

SI +1,40: REM FREQUENZA 

30£0 

REM 

************************* 

4110 

FOR 

K=1 TO 8: REM NUMERO ON 
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L UTILE 


* 

DE 

, * 

513B 

FOR 

H - 1 TO £;REM 

NUMERO GN 

4120 

DUERNO < 1 >*250 +20! REM DURATA 0 


AM 



# 

NOA 


5140 

FOR 

K=855 TO 150 

STEP -10 

4130 

FQR 

VO =3 TO 15: REM ONDA CH 

5150 

POKE 

SI+8,£55-K 



E SALE 

5160 

POKE 

31 + 1 ,K 


4140 

POKE 

31+24^0 

5170 

NEXT I NEXT 


4150 

F OR 

G=1 TO DU s NEXT 

5130 

POKE 

3 I +4 ,0*POKE SI+1 1 ,0 

4160 

NEHT 


5500 

REM 

t**********ttt**tt«t*»*** 

4170 

FOR 

V0 = 15 TO 3 STEP -1 :REM 

5510 

REM 

* BOf*© 

* 


ONDA CHE SCENDE 

55E0 

REM 

************************* 

4180 

POKE 

SI+24,V0 



1 ' , 


4180 

FOR 

Q = 1 TO DUsNEXT 

5530 

* 

H 



4300 

NEXT: 

NEXT 

5540 

SI=54£7£ 


| 4310 

POKE 

si+ 4,0 

5550 

FOR 

Q=0 TO £4 


4££0 



5560 

POKE 

S I +Q ,0 • NEXT 

■ 

5000 

REM 

****************** ******* 

5570 

POKE 

SI +6, £40 s REM 

S/R VOCE 1 

5000 

REM 

***«******: *************** 

5580 

POKE 

SI + 13 ,£55:REM 

S/R VOCE 

50 ì 0 

REM 

* GNAM-GNAM * 


2 



5030 

REM 

************************* 

5590 

POKE 

3 1 +4 j- 1 7 : REM 

TRIANGOLAR 

5030 

■ 

■ 



E 



5040 

SI =54272 

5600 

POKE 

SI+8,4 


5050 

FOR 

Q=0 TO £4 

5610 

POKE 

SI +24 , 15 


5060 

POKE 

SI+D,B:fCXT 

5620 

FOR 

K-255 TO 150 

STEP - ,4 

5070 

POKE 

S I +6 ,£55 : REM S/R VOCE 1 


:REM 

SIBILO 


5088 

POKE 

Sl+13,£55:REM S/R VOCE 

5630 

POKE 

SI + I ,K 



2 


5640 

NEXT: 

POKE SI +4,0 


5090 

POKE 

S I +4 , 1£9 : REM RUMORE 

5850 

POKE 

SI+1 1 , t£3 


5100 

POKE 

S I + 1 1 ,65 : REM RETTANGOLA 

5660 

FOR 

Q=1 TO 15 STEP • 1 s REM 


RE 



TONFO 


5110 

POKE 

SI + 10,£:REM TOCCO simul 

5670 

POKE 

SI+£4,15~G 



ATQ VOCE £ 

5680 

NEXT 



5130 

POKE 

3I+£4,I5 

5680 

POKE 

SI +4, 0S POKE SI + H ,0 
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Le stampanti MT/65, a 60 colonne, e MT/86, a 136 
colonne, rappresentano una nuova frontiera nel 
settore delle stampanti a basso costo 
Basso costo, ma non bassa qualità e basse 
prestazioni, infatti ecco le credenziali di questi due 
nuovi prodotti, 

Velocità a -ISO cps bidirezionale ottimizzata, NLQ 

0 45 cps. r grafiche, possibilità di 8 fonti alternative 
di caratteri e naturalmente la completa 

compatibilità con il PC IBM 
II prezzo: il più competitivo dei 
m e rea t o in qu està fa scia di 
prestazioni, 

Naturalmente anche le MT/85/8Ó 
h, : Vi oltre ai trattori hanno anche 

1 ' ' . • ' trascinamento a frizione e 

consentono pertanto il 
;1 trattamento del foglio singolo. 


20064 Carsico (MI) - V.-a Coctomosto, 3 
Tel, (02) 4502650/055/360/665/670 - Tele k 3^371 Tolly 
00137 Roma - Vìa L Dal lungo, - Tel (06) 6270^58 
1C096 San Mauro {■ O; ■ Via Cabale, 303 ■ Tel. (Oli) 3225171 
40050 Monte veglio (0O) - Via E-.nstéin, 5 - Te . (051) 832503 


Tutte . 
le garanzie 

del n. 1 
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SIMULAZIONI 

QUALSIASI COMPUTER 


Un percorso probabile 


i sarà capitato più di una volta di 
osservare alla televisione o sui banchi di 
scuoia lo svolgimento di un semplice 
esperimento che consiste nel far cadere 
un certo numero di palline parallela men- 
te ad una superficie sulla quale sono 
piantati dei chiodi disposti a triangolo. 

Le palline, al termine della prova, si 
dispongono in modo da rappesentare a 
loro volta una figura molto simile allo 
stesso triangolo. 

In realtà ciascuna pallina, cadendo, 
urta contro uno dei chiodi e, per prose- 
guire, è costretta a spostarsi a destra op- 
pure a sinistra incontrando nuovamente 
un chiodo fino a che non esce da! 
triangolo. 

Se il numero delle palline, e quello dei 
chiodi costituenti il labirinto, è elevato, 
le palline stesse, dopo 1 esperimento, si 
disporranno secondo una cuna (figura 
1) che indica la probabilità di presenza di 
una generica pallina in un dato punto 
dopo la caduta. 

Come si può verificare, tale probabili- 
tà è massima in corrispondenza del punto 
verticale (al vertice del triangolo) mentre 
è praticamente nulla in corrispondenza 
dei loti della base, 

In effetti la pallino, urtando dapprima 
il chiodo posto al vertice, ha le stesse 
probabilità di proseguire a destra o a 
sinistra. 

Se T ad esempio, cade a destra, colpirà 
un secondo chiodo posto diagonalmente 
a destra rispetto al primo. 

La pallina quindi rimbalzerà una se- 
conda volta ed avrà ancora le stesse pro- 
babilità di cadere a destra o a sinistra. 

In tal modo la pallina, cadendo verso 
la base del triangolo, segue un percorso 
casuale. 

Per far sì che la pallina cada verso la 
zona periferica della base, dovrebbe ca- 
dere sempre a sinistra oppure sempre a 
destra ad ogni ostacolo incontralo, e 
questo evento, naturalmente, è piuttosto 
improbabile. 

E più probabile, al contrario, che la 
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Ecco come 
simulare , con il 
computer, la 
traiettoria seguita da 
una pallina in un 
labirinto. Il tutto con 
poche linee di 
programma BASIC . 


pallina cada lo stesso numero di volte a 
destra e a sinistra degli ostacoli perve- 
nendo, alla fine, nella zona centrale della 
base. 

Perchè l'esperimento sia rigoroso si 
deve però tenere còrito anche del fatte 
che, una volta acquistata una componen- 
te di moto, verso destra o verso sinistra la 
pallina tenderà a conservare questa 
quantità di moto continuando a rimbal- 
zare verso la stessa direzione, 

Per ovviare a questo incove mete ì 
chiodi dovranno essere posizionati con 
molta cura. 

Naturalmente questo problema non si 
pone con la simulazione al computer, 
poiché la pallina è rappresentata da un 
carattere grafico e come tale non possie- 
de nè massa nè tantomeno una quantità 
di moto. 


U programma 

Il programma non è per nulla compli- 
cato: eliminate le linee di commento si 
riduce a qualcosa di estremamente 
breve. 

1 caratteri grafici corrispondenti alle 
palline vengono stampati attraverso un'i- 
struzione di PGKE, mentre la presenza 
di un ostacolo è rivelata con una PEEK, 

Bisogna dire che non sempre le palline 
cadute riproducono alla perfezione Tim- 
magine del triangolo di ‘chiodi", a causa 
del numero limitato di palline cadute e di 
ostacoli presemi sul loro cammino. 

Perchè l'esperimento riesca alla perfe- 
zione i ' chiodi’' dovrebbero essere molti 
di più e cosi anche le palline cadute, ma 
le dimensioni dello schermo, purtroppo, 
non lo permettono. 

La maggior parte delie volte, comun- 
que, la curva viene rappresentata bene e 
si può notare corre nelle zone estreme a 
volte non cada nemmeno una pallina, 
mentre nelle zone centrali sì accumulano 
in gran numero. 

Luca Galuzzi 
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SIMULAZIONI 


450 REM ************************* 


100 REM UN PERCORSO PROBABILE 
110 s 

130 REM SIMULAZIONE DI L. GALUZZ I 
140 S 

150 REM VIC £0 . C -64 
160 REM C- 16 . PLUS 4 
170 ! 

160 : 

130 PR INTCHR$( 1 47 ) " 1 - COMMODORE 64 

U 

£00 PRINT JI 2~ VIC 20 INESPANSO* 

210 PRINT '*3“ 016" 

220 GET A$:IF A$= Mtt THEN 220 
230 Xi=1024:X2=40:X4=23 
240 IF A$="2“ THEN X 1 =7880 : X2=22 s X 
4=21 

250 IF A$="3 li THEN XI =3072 
260 REM * 

* 

270 REM ******* txtttttt***.* 
**** 

280 PRINT CHRÉC 147 )CHR$( 17) s XA$=CH 
R*<£9)+CHR$(29>+CHR*<29> 

290 PRINT TAB C 10 >GHR$( 17 ) " * ,f è REM 
SHIFT + "G * 

300 PRINT TAB (8) CHR3K 1? ) " •"XA*** 

ii 

310 PRINT TABC6) CHR*< 1 7 ) " • 
"XAÉ"*" 

320 PRINT TAB < 4 ? CHR$< 1 7 ) " *"XA$ M » 
«XA$ tì » n XA$"i ,i 

330 PRINT TAB C 2 > CHR*< 3 7 ) " • w XA$ ,i * 

340 PRINT CHR$<i7) ll a l> XRS ll l*XflS"a“ 
XA$" •"XAS" • t, XAS 1 ' #" 

350 X = 10 : Y=0 : GOSUB 430 SPRINT “ O 11 ; 

: REM SHIFT + "W* 

360 Y=Y + 1 

370 PRINT CHRSC 157)CHR*<32); 

380 60SUB 430 SPRINT 11 0 H ; 

390 IF PEEKCXI+(X£*CY+2) )+X>=Bl 
THEN GOSUB 500 
400 IF RE EK C X 1 + < X2 * C Y+2 ) > +X ) =87 
THEN 550 

410 IF Y=X4 THEN 350 
420 GOTO 3B0 

430 REM ************************* 
* 

440 REM *** PRINT AT <X f Y) ** 
* 


* 

460 PR INT CHRSC19) 

470 POR 1=1 TO YS PRINT CHR$(1?> 
; : NEXT 

480 FOR 1 = 1 TO X SPRINT CHR4C29) 
; : NEXT 
490 RETURN 

500 REM ************************* 

L 

* 

510 REM *#* URTO ** 

* 

5£0 REM ************************* 
* 

530 IF (INTCRNDO >*2> ) = 1 THEN X 
=X-£i RETURN 
540 X=X+£: RETURN 
550 IF Y< = 1£ THEN 570 
560 GOTO 350 

370 PRINT CHR$U9)CHR$C 18> ■ PRE 
MI UN TASTO PER RICOMINCIARE 

il 

580 GET A$s IF 8$=** THEN 588 
590 GOTO 230 



Chiodi 
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Come esaminare, 
vistosamente 
ingranditi su video 
oppure su 

stampante , i caratteri 
del popolare 
computer simulando 
l’uso di un 

microscopio puntato 
sul teleschermo. 

uando con una normale macchina 
da scrivere battiamo una lettera possia- 
mo vedere (e capire) come i caratteri 
vengono stampati. 

Quando invece usiamo il computer, i 
caratteri che digitiamo da tastiera com- 
paiono, come per magia, su] video. 

Questa magia, detta elettronica, nel 
bene o nel male ci accompagnerà per i 
secoli a venire.,. 

Ora, tornando alia nostra vecchia 
macchina da scrivere, sappiamo che esi- 
stono dispositivi meccanici (di vario tipo) 
che contengono tutti i caratteri alfanu- 
merici che consentono di scrivere. 

Se anche col computer riusciamo a fa- 
re tutto ciò significa che anche questo 
strumento possiede un dispositivo conte- 
nente tutti i caratteri utili. 

Questo dispositivo, che evidentemen- 
te non è di tipo meccanico, è detto ROM 
GENERATORE DI CARATTERI. 

*** I! termine ROM (Read Only Me- 
mory) significa Memoria a Sola Lettura: 
è una parte, cioè, della memoria del 
computer da cui noi possiamo solo legge- 
re dati, senza la possibilità di modificar- 
ne il contenuto. 

Per contro, la parte di memoria dove 
possiamo anche scrivere è detta RAM 
(R arnioni Access Memory = Memoria 
ad Accesso Casuale): questa patte di me- 
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moria è quella in cui scriviamo i nostri 
programmi, le variabili, dati 
eccetera *** 

Dunque, ora sappiamo che tutti i no- 
stri caratteri sì trovano in una zona della 
memoria detta Rom Generatore di 
Caratteri. 

Vediamo ora, in dettaglio, come ogni 
singolo carattere è costruito all'Interno 
della macchina. 

Tanto per cominciare, si potrebbe os- 
servare attentamente una qualsiasi lette- 
ra Sullo schermo: se il video è abbastanza 
grande (e la vista buona f), ogni carattere 
ci apparirà come un serie di punti, dispo- 
sti i n modo da creare la lettera osservata. 

Quindi, la conclusione che possiamo 
trarre è che i caratteri sono composti da 
più punii accesi" sullo schermo in con- 
trasto con altri che sono, invece, 
"spenti”. 

I caratteri, in effetti, sono formati da 
una matrice (griglia) fatta da 8 8 punti (8 
righe 8 colonne). 

Ogni riga, formata da 8 pumi, è detta 
BYTE; ogni punto, invece, è detto BIT: 
segue che un byte è formato da 8 bit. 

II hit. fr l' UN ITA’ ELEMENTARE 
DEL COMPUTER e, convenzional- 
mente, può assumere solo due valori: Oo 
1. 

Pensate ad u n interruttore: questo può 


essere spento, 0, oppure acceso, L 
Tutti t bit con valore 1 costituiscono i 
punti accesi (ON) sul video, mentre 
quelli con valore 0 i punti spenti (OFF). 
*** I singoli punti accesi sullo schermo 
sono detti PIXEL e costituiscono le 
UNITA' FONDAMENTALI delfini- 
m agirle video: punti più piccoli non pos- 
sono essere accesi!*** 

L ’insieme degli 8 byte, con i relativi bit 
accesi o spenti, costituiscono il nostro 
CARATTERE. 

Abbiamo detto che i bit possono assu- 
mere solo due valori, 0 o 1: un sistema 
numerico che è rappresentato solo da 
due simboli, si dice BINARIO. 

Come si sa, il nostro sistema di nume- 
razione abituale è quello DECIMALE: 
con ì dieci simboli messi a disposizione 
possiamo rappresentare tutti i valori che 
vogliamo. 

Ora, essendo anche il sistema binario 
un sistema di numerazione a tutti gli ef- 
fetti, significa che anche con questo pos- 
siamo rappresentare tutti i valori che vo- 
gliamo ed eseguire tutte le comuni ope- 
razioni che facciamo con i decimali. 

Senza entrare nel dettaglio della arit- 
metica binaria, quello che serve sapere 
ora è che una serie di simboli “0" e di l T + 
nel sistema binario costituiscono un nor- 
malissimo numero nel nostro sistema 
decimale, 

Questo mi sugerisce sempre una consi- 
derazione: se noi, come uomini, avessi- 
mo solo due dita, il sistema di numera- 
zione più logico sarebbe quello binario! 

Se vi ricordate, il Byte è costituito da 8 
Bit, che possono essere messi a 1 oppure 
a 0: l’insieme di questi 0 e 1 messi in un 
certo ordine costituisce un numero bina- 
rio, che può essere trasformato in deci- 
male con una semplice regola che i lettori 
abituali dovrebbero già sapere: 
numerando gli 8 bit da 0 a 7, partendo da 
destra, e prendendo un byte a caso, otte- 
niamo la seguente corrispondenza; 

num bit 7 6 5 4 3 2 1 0 

valore I 0 0 1 1 «1 0 1 

Per ottenere il valore decimale, occor- 
re moltiplicare il valore di ogni bit fU" 
oppure T fc ) per 2 elevato al numero di 
bit corrispondente, e sommare tutti i ri- 
sultati cosi ottenuti: net nosto caso sarà; 


1*2 

0*2 

0*2 

1*2 

1*2 

0*2 

0*2 

1*2 


7 + 
6 + 

5 + 
4 + 
3 + 
2 + 
1 + 
0 = 


153 


* 
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Ricordiamo che 2t0=l: qualsiasi nu- 
mero elevato alla potenza nulla fornisce 
come risultato 1 e non 0 come potrebbe 
sembrare a prima vista. 

A questo punto* dire che un carattere 
è costituito da 8 byte equivale a dire che 
un carattere è formato da 8 numeri* e 
sono questi numeri ad essere memorizza- 
ti nella ROM: quando battiamo un tasto 
qualsiasi* il computer sa che deve andare 
nella ROM per prelevare quel particola- 
re insieme di numeri che formeranno il 
simbolo premuto! 

Il CBM 64, come il V1C 20 ed C 16, 
possiede due set di caratteri: ì caratteri 
MAIUSCOLI e G RAPICI ed i caratteri 
MINUSCOLI e MAIUSCOLI (entram- 
bi con i rispettivi reverse* ciò gli stessi 
caratteri in negativo). 

Ogni set completo è formato da 256 
caratteri: visto che ogni carattere è com- 
posto da 8 byte* un set completo occupa 
ben 256 8=2048 byte (2K di memoria: 
due set* 4K). 

Per quanto riguarda il 64* questi byte 
partono dalla locazione 53248, e sono 
suddivisi come segue: 


Indirizzo 


53248 

53760 

54272 

54784 

552% 

55808 

56320 

56832 


Car. Maiuscoli 
Car. Grafici 
Car. Maius. reverse 
Car. Graf , reverse 
Car. Minuscoli 
Car. Maius. e Graf, 
Car, Minus. rev, 
Car, Maius/graf/rev. 


N. B. Nel set Minuscoli - Maiuscoli so- 
no presenti comunque alcuni simboli 
grafici. 

I due set, NON possono comparire 
contemporaneamente sullo schermo: 
per passare dalPuno all'altro occorre 
premere il tasto “Commodore'* insieme 
col tasto Shift* oppure digitare PO- 
KE53272.21 per il passaggio al set Maiu- 
scolo, mentre POKE53272,23 per il pas- 
saggio al Minuscolo, 

Lo stesso passaggio può essere ottenu- 
to con i CHRS(X): sfogliate la tabella del 
manuale e trovate voi i valori x da inseri- 
re tra le parentesi. 

* ** Una nota superflua: il 64, al momen- 
to dell'accensione* si trova nel set Maiu- 
scolo - Grafico/* 31 

II primo carattere ad essere memoriz- 
zato nella Rom è il simbolo di chioccioli- 
na ottenibile* tra Pallio, con PRINT 
CHR$(64): la Rom sarà* cioè, occupata 
dai numeri che formano tale carattere a 
partire dalla locazione 53248 fino a* 
53255 , 


Questo simbolo è anche il pomo delia 
tabella dei codici dello schermo: dò si- 
gnifica che i singoli caratteri sono memo- 
rizzati nella Rom seguendo l’ordine di 
tale tabella (vedi manuale del 
computer). 

Sempre in questa tabella troviamo le 
scritte serie I e serie 2, oppure set 1 e set 
2; questo è riferito ai due set del compu- 
ter: lo stesso codice (numero) puO dare 
due caratteri diversi* a seconda del set in 
cui operiamo. 

Vediamo ora come si fa a trovare la 
posizione di una qualsiasi lettera nella 
Rom. 

Supponiamo di voler sapere dove si 
trovano i byte che determinano la Z, nel 
set Maiuscolo; dalla tabella dei codici, 
osserviamo che il codice della Z è 26, 

Per ottenere la locazione dei primo 
byte, occorre calcolare: 
53248+826=53456 

Tale byte* più i 7 successivi (fino a 
53463)* determinano la struttura- griglia 
del carattere "Z*\ 

Guardando le figure l e 2* capirete lo 
scopo del programma. 

Sì tratta di una dimostrazione di quan- 
to detto finora: potrete vedere come so- 
no costruite tutte le lettere e tutti i carat- 
teri grafici di entrambi i set. 

Sempre guardando le figure 1 e 2, abbia- 
mo sulla sinistra la configurazione di tutti 
i BIT degli 8 BYTE costituenti la lettera 


A (set 1: figura 1 - set 2: figura 2)* men- 
tre, sulla destra, abbiamo i corrispon- 
denti valori decimali. 

Nella parte centrale è visualizzato il 
carattere* così come sarà ri prodotto sullo 
schermo. 

Dopo aver dato il RUN* verrà posta la 
domanda: 

MAIUSCOLO (FI) O 
MINUSCOLO (F2) ?. 

Rispondendo col tasto FI potrete ana- 
lizzare tutti i caratteri del set Maiuscolo - 
Grafico, mentre rispondendo F2 
(FI +shift), entrerete nel set Minuscolo. 

La domanda successiva (CON COSA 
?}* riguarda semplicemente il simbolo 
con cui volete costruire il carattere (nelle 
fig. 1 e 2, è stato scelto Asterisco l5 * ,T ). 

Il carattere da analizzare* è prelevato 
dalla locazione dello schermo 1445 {linea 
870): è necessario, perciò, copiare esat- 
tamente tutti i vari messaggi del listato 
(tranne le solite REM che potete anche 
evitare di trascrivere). 

Alla fine della radiografia sili caratte- 
re, premendo Y esiste la possibilità di 
stampare su carta la radiografia stessa. 
*** Attenzione: le POKE della subrou- 
tine Legge in Rom sono tra le più perico- 
lose: un piccolo errore porta alTinchio- 
damento del computer! ! ! , 

Consiglio perciò, come a! solito, di re- 
gistrare il programma prima di lanciarlo. 

Sul rigiocato di queste Poke tornere- 
mo in un altro articolo*** 

Giancarlo Castagna 
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DIDATTICA 


100 REM COMMODORE 64 
i£0 REM CARATTERI AL 
130 REM MICROSCOPIO 
140 : 

150 REM GIANCARLO CASTAGNA 
190 : 

200 PRINTCHR*(8)CHR*<Ì47}; 

£ 10 FR INTSPC <5 > "*# ******* A#******# 

£ # 3ft $ * * # £ # ,E 

£20 FR INTSPC <5 > 11 * CARATTERI AL MIC 
RQSCQF IO * a 
£30 PR INTSPC C5> 11 * 

^ 11 

240 PR INTSPC <5 )"* ®C 

AST IS85 *" 

250 PR INTSPC (5 ) "****************** 
*********** 

260 PRINT TAB <4 1 > “MAIUSCOLO <'F1‘> 
0 MINUSCOLO { >F2’ > ?" 

270 GET R* 

280 IF R*=CHR*(133> THEN PR1NTCHR* 
a 42 )i AD =53248! GOTO 3 10! REM F 
1 

230 IF R*=CHRS U 3? ) THEN PRINTCHR* 
(14) ! AD =55296! GOTO 310:REM F2 
3 U0 GOTO 270 

310 PRINT TAB<85>; : IIsPUT "CHE CARA 
TTERE "ISI* 

320 Sl=LEN(Sl$)i IF S1>1 THEN PRINT 
CHR*( 145>CHR*( 145)CHR*< 145)) !G 
OTO 310 

330 PRINT TABC45); : INPUT “CON COSA 
"JC* 

340 C=LEN<C*)!IF C>1 THEN PRINTCHR 
*< 145 )CHR*( 145)) ! GOTO 330 
350 GOSUB 860! PRINTCHR* (1 47) 

360 PRINTCHRSC 19 )SPC C8)CHR$< 18) ’ B 
INARIO "SPCCIS)" DEC. "CHR$C17 > 
370 REM ******************* 

380 REM * RIGHE CARATTERE * 

330 REM ******************* 

400 FOR 1=0 TO ?*DE=CA< I ) 

410 REM ************************ 

420 REM * DECIMALE (DE) - BINARI 

0 * 

430 REM ************************ 

440 FOR K=? TO 0 STEP -1 
450 QU= INT (DE/2 ) ! RE (K ) =DE~2*QU 
460 DE=QU:NEXT 

470 REM ******************** 

480 REM * STAMPA CARATTERE * 

490 REM ******************** 

530 FOR T=0 TO 7 : PR INTRE (T ) J i MÌXT 


510 FOR T =0 TO 7 : IF RE(T>=0 THEN P 
RINTCHR*(32); iGOTO 530 
520 PRINTC*; 

530 NEXT:PRINTCA< I > 

540 NEXT 

550 REM ********************* 

560 REM * STAMPA SU CARTA ? * 

570 REM ********************* * 

380 PRINT TAB <208 > "VUO I STAMPARE < 

Y/N) ?” 

590 GET R*!IF R*="Y" THEN 720 
600 IF R$= "N" THEN 650 
610 GOTO 590 

620 REM ************** 

630 REM * RICOMINCIA * 

640 REM ************** 

650 PRINT TAB (160) TAB( 127>CHR$< 13 
)■ F7 - CONT. F5 - FINE ” 

66B GET R$:IF RÌ=CHR$( 136) THEN 20 
0 

670 IF R$=CHR$( 135 ) THEN END 

680 GOTO 660 

630 REM *********** 

700 REM * MPS 803 * 

710 REM *********** 

720 OPEN 4,4 

730 PR INTH4 ,CHR$< 18>;CHR$( 16)? "07" 
J* BINARIO ")CHR*< 16)J "32"; " □ 
EC ";CHR*(148> 

740 LO=0!A*="" 

750 FOR I = 10S4+LO TO 1103+LO 
760 PP=PEEK( I): IF PP<32 THEN PP=PP 
+64! GOTO 790 

770 IF PP >63 AND PP<96 THEN PP=PP + 
32! GOTO 790 

780 IF PP >36 THEN PP=PP+64 
790 A*=A$+CHR$(PP) iNEXT 
S00 PRINT#4,A*sLO=LO+40! IF LO<400 
THEN ft$= " “ iGQTO 750 
810 FOR 1 = 1 TO 4 : PR I NT#4 : ìn£XT : CLOS 
E 4 

820 GOTO 650 

330 REM **************** 

840 REM * LEGGE IN ROM * 

350 REM **************** 

860 POKE 56334 ,PE£K (56334) AND 254 

■POKE 1 ,PEEK ( I ) AND 251 
870 PE=PEEK ( 1445 ) 

880 FOR 1=0 TO 7!CA(I)=PEEKCAD+I+P 
E*8 ) » NEXT 

890 POKE l,PEEK(l) OR 4: POKE 56334 
,PEEK (56334) OR 1 
900 RETURN 
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SIMULAZIONI 

COMMODORE 64 

Simula robot 


na nuova febbre si sta diffondendo 
in questi ultimi mesi tra gii appassionali 
di informatica ed elettronica: quella del 
personal robot. 

Chi T tra coloro che hanno visto i servizi 
dedicati alPÉXPO tenutasi recentemen- 
te a Tsukuba, in Giappone, non avrebbe 
fatto un patto con il diavolo pur dì avere 
il robot che suona il pianoforte o quello 
che cammina come un essere umano, 
con due sole gambe' 7 !? 

Purtroppo per ora tali fantastiche 
macchine non sono che un sogno per noi 
poveri hobbisti. 

Non scoraggiamoci, però: già da qual- 
che tempo è in circolazione un braccio 
meccanico che si può interfacciare ai per- 
sonai computer e di cui si possono pro- 
grammare ì movimenti. 

Vi sono poi altri piccoli automi “semo- 
venti” {apparsi anche in varie trasmissio- 
ni televisive) in continua evoluzione. 

Nell’attesa che tali robot diventino più 
intelligenti (e che ì prezzi calino), possia- 
mo fin d'ora prendere confidenza con i 
loro comportamenti simulandoli con il 
nostro Commodore 64. 

Il programma qui riportato si propone 
dì simulare due delle fondamentali “per- 
formance” dei robot: il movimento di un 
braccio e la presa di oggetti. 


Introduzione 

Muovere un braccio veraci un oggetto 
ed afferrarlo è per noi umani una cosa 
semplicissima, che non richiede partico- 
lare concentrazione e impegno: lo faccia- 
mo da sempre. 

Ma proviamo a pensare come avviene 
Tope razione, 

1/ Vediamo r oggetto e ne calcoliamo la 
posizione rispetto a noi. 

2/ Ruotiamo braccio ed avambraccio 
nella direzione delPoggeno. 

3/ Controlliamo visivamente se abbia- 
mo raggiunto l'oggetto. 



Uno studio dei 
problemi che si 
presentano nella 
progettazione dei 

robot risolto, in 

■ 

questo articolo , con 
una simulazione 
semplice ed 
interessante. 


4/ Se ciò non & avvenuto torniamo a! 
punto 2. 

5f Afferriamo l'oggetto. 

Le fasi 2 e 3 si svolgono ad una tale 
velocità che il movimento risulta conti- 
nuo ed unico ma provate a ripetere ia 
stessa operazione chiudendo gli occhi 
nella fase 2. 

Vi accorgerete che diffìcilmente riusci- 
rete a raggiungere con precisione la posi- 
zione desiderata al primo tentativo. 

Per un robot (supposto che disponga 
di una telecamera o di un radar) operare 
in questo modo non sarebbe molto con- 
veniente, a meno che non riesca a ripro- 
durre una delle doti fondamentali dd- 
l’uomo: l'esperienza, che porta a indivi- 
duare immediatamente i movimenti ap- 
propriati tra gli infiniti possibili. 

Esiste però un metodo che può assicu- 
rare al nostro robot {sempre se dotato di 
'vista' ) una veloce e sicura riuscita nel- 
rimpresa (per non complicare troppo i! 
discorso farò riferimento ad uno spazio a 
due sole dimensioni). 


La teoria 

Immaginiamo di avere, come in figura 
t, un braccio composto da due pani: RI 
e R2 

L'estremo lìbero di RI è "piantato" 
nella posizione CI e voglialo fare rag- 
giungere all'estremo libero di R2 (cioè ìa 
mano) la posizione C2. 

Immaginiamo ora di spezzare il brac- 
cio all'altezza del gomito, e di piantare 
l'estremità corrispondente alla mano 
(R2) nei punto C2, 

L’impostazione del problema è ora 
cambiata dato che dobbiamo congiunge- 
re RI e R2 allo scopo di ottenere il colle- 
gamento C1-C2. 

Ebbene noi sappiamo che Rie R2, 
ruotando intorno ai loro rispettivi fulcri 
CI e C2 , descrivono due circonferenze c i 
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Figurai: f intersezione dì circonferenze 





Conoscendo la posizione dì un oggetto (€2), fi - 
spetto alia " spalla " (Ci), e conoscendo Sa lun- 
ghezza di braccio (Ri) ad avanbraccìo (R2) é 
possìbile, tramite fa nsoìuztone di un sistema tra le 
due circonferenze di centro Ci e C2 e di raggio Ri 
ed R2 fipattivemeniB, troyamie due posizioni pos- 


sibili (i punti d’intersezione dalie circonferenze) 
dei gomito che consentono di portare la “mano" 
ne! punto desiderato „ 

Conoscendo ciò è facile determinare gli angoli 
di rotazione corrispondenti. 


Concessionari 

Memorex 

Computer Media 

TORINO 

COMPUTER MEDIA 
Via Su sa, 3? 

Te: Q11/4402G1 «41027 

BIELLA (VC) 

CO. FIN 

V a Becubbiica. 33 
Tel. Q1 5/30237 

GENOVA 

Vin Col rii Lana. 5/19 
Tei. 010/41 B7 1 9 

MILANO 

LQGQTEC 

V a Paci™. 72 

Tal. 02/292677/235530 

MILANO 

GA$FJ 

Via Pacchio, 1 
Tei. 02/225006 

MONZA (HI) 

COMPUTER CITY* 

V^ì Sr-rn GoitardC. 04 
Tei 039 13 25293 

VIADANA (MN) 

PAG 

Vtì M D'Azegho, 29 
re .0375/01074 

CONEGLIANO VENETO (TV) 

DAL CINE LIO 
Via Manin, 59 /A 
Tei. 0430/63144 

DOLO (VE) 

PESCO 

Via Fosca fina, 16 

Tei 041/415860 

NOVENTA PADOVANA (PD) 

R.ES.CO 
Via Pomati, 6 

pahma 

CHEBO 

Bo/go Antinl. 3/G 
Tal. 05 21/ 207404 

BOLOGNA 
TRADERim 
Via Majocctii, i 
Tel 061/406668 
SAN LEON ARDO (FO) 

IL CENTRO EDP 
Via At meHicO, 19 
Tel 05 43/7 2 BUOI 

LIVORNO 

INFORMATICA 

Via Se ai degl- Olandesi, &4 

Tel 0506/30022 

PERUGIA 

RIGHETTI 

Via XX Settembre, 70 
Tel. 075/61 000/72266 

ANCONA 

PRISMA 

Gcrso Cario Alberto, 1 2 
Tel. 071/099262 

ROMA 

MEMORY LINE 

Via Nomanlantì. 224 

Tel . 0 6 /832QQ4 0/B320 434 

SALERNO 

SYNCRO N DATA 

Via Paolo de' Granita, 14 

Te; 009/241410 

PALERMO 

OYTCS HOUSE 
Viri Vanti Anto. 26 
Tel .09 1/291 154 


è importante scegli 

MEMOREX 

A fìurrCkughs Company 


50 - Commodore Computer Club 


** f-L 



v - : 'fc. 

*• 1 ;.Lr 


Difatti sembrano lutti uguali finche non 
si osserva con attenzione il jacket. Qui 
termina l'uguaglianza. 

La maggior parte delle società costruttrici 
sigillano i dischi un punto qui, un punto là, 
lasciando parte dei lembi non sigillati. 
Prima o poi ai lembi accadono cose 
naturalissime: si gonfiano, si curvano, si 
raggrinziscono.,, in poche parole si aprono. 


GLI ALTRI DISCHÉTTI 

daziisi un p ur Lo qui. 
un [nmio l-i lasdinù 
pame dei 

lembi aperti, ^ ^ 


DISCHETTI MEMOREX 

curi k]nt;>i cùjflpteanvenie 
vj\L;lLì tu Sulla 
la iupcrfitic. 


m 




f : 






Teo Rusconi ha appena 
sfatato la leggenda 
secondo la quale i floppy disc 
sono tutti uguali 


Con penne, matite, unghie persino un 
ragazzino di quattro anni come Teo può 
infilarsi in quegli spazi aperti. 

Naturalmente è un danno enorme perchè 
se si inserisce qualcosa di molle e slabbrato 
nel disc-drìve quest' ultimo può incepparsi; 
si può rovinare la testina e si possono 
perdere i dati. Questo può accadere con gli 
abituali sistemi di chiusura ma non con i 
dischetti Memorex che usa un 
procedimento esclusivo chiamato 
“SolidrSeam Bondìng", 

Con questo sistema ogni singolo 
millimetro quadrato dei lembi di tutti i 
dischi Memorex viene sigillato 
ermeticamente, rendendoli più rigidi e più 
resistenti. 


- - 


È un sistema che consente al floppy disc 
di sostenere ogni assalto, che impedisce alia 
testina di rovinarsi e ai dati di andare perduti. 

Il che sia a dimostrare che un floppy disc 
Memorex non è uguale a tutti gli altri: è 
migliore. F: il sistema di saldatura è solo un 
esempio della cura infinita con cui viene 
prodotto ogni floppy disc Memorex; sia 
esso da 8”, da 5 1/4” o il nuovo 3 1/2”. 
Questa estrema accuratezza dà la garanzia 
che ogni disco Memorex è al 100% perfetto, 
l.a prossima volta che acquistate un 
floppy disc - o qualche centinaio 
- ricordate: non tutti i dischetti 
sono uguali.,. 

Memorex vi mette al 
riparo da qualsiasi 
inconveniente. 


è importante scegli 

A Burroughs Company 


8U R ROU QHS-M EMGR EX 5- P. A 
0iv<5Ìor:-E Computer 
Via Ciro MbtiOHì, 14 10 . 02/71 B55 1 
20129 MILANO MI 
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Rotazione semi braccio 



La rotazióne avviene intorno ai fulcro (F). L'angob formato dai due semi brace f rimane immutato* 



Umanoide 

/ rapite >i traccio - n oboi dovete accostare gii spò- 
re presenti svilo schermo in modo da formare gua- 
sta figura. 


punti in cui tali circonferenze si interse- 
cano indicano le possibili congiunzióni 
dei due bracci, cioè danno la soluzione 
del problema iniziale. 

Conoscendo la posizione C2 da rag- 
giungere (rispetto alla “spalla” Cl) c le 
lunghezze di braccio (RI) ed avambrac- 
cio (R2), si possono calcolare i punti 
d'intersezione (se esìstono) tra la circon- 
ferenza di centro Cl e raggio RI e quella 
di centro C2 e raggio R2. 

In seguito basta calcolare gli angoli al 
centro corrispondenti e fare ruotare i se 
imbracci di conseguenza. 

Nelle figure 1-2-3 viene illustrato r in- 
tero processo di calcolo. 

Questo sistema presenta però un in- 
conveniente: vale solamente per bracci 
composti di due sole parti. 

Consideriamo comunque che tale 
composizione degli arti sembra essere la 
regola prevalente in natura. 

Per meglio comprendere tutto quanto 
detto, vi propongo un programma che 
permette di muovere un braccio con en- 
trambi i metodi. 


Il programma simulatore 

Perchè tale listato giri occorre prima 
avere caricato le routine grafiche pubbli- 
cate sul N, 14 di C,C,C. (e riproposte 
sulla cassetta Commodore Club N. 4). 
Fatto ciò, potete caricare il programma 
pubblicato in queste pagine c dare il 
RUN. 

Vi verrà chiesto di quante parti (semi- 
braca) volete sia formato il vostro brac- 
cio meccanico. 

Potete rispondere con un numero 
compreso tra 1 e 9. 

Premuto il tasto RETURN vi verrà 
domandato di fornire la misura (in pumi- 
scherno) di ogni semi braccio . 

Una volta te mimata la fase di input lo 
schermo passa in alta risoluzione e, dopo 
un paio di secondi, vengono visualizzati 
il braccio da voi scelto, terminante con 
una mano rudimentale, e altri sei oggetti 
(aprite). 

Per manovrare il braccio potete utiliz- 
zare i tasti 1, 2 f 3 t ... 9 che fanno ruotare 
il semibraccio corrispondente di 1(1 gradi 
intorno al proprio fulcro. 

La rotazione avverrà in senso orario. 
Premendo contemporaneamente il tasto 
SHIFT la rotazione sarà invece 
antioraria. 

Come è logico isem Sbracci “a valle "di 
quello che ruota si spostano solidalmente 
con questo (vedere figura 4). 


Premendo il tasto (meno) l’angolo 
di rotazione diventa di 1 grado. Premen- 
do 41 +” torna a 10 gradi. 

I tasti “C” e “À" servono rispettiva- 
mente a chiudere e ad aprire la mano. 

Se un oggetto sì trova nella mano 
quando chiudete viene "afferrato 1 " e te- 
nuto finché non riaprite. 

Veniamo ora agli oggetti-sprite: par- 
tendo da sinistra, trovate le gambe M 
braccia, la testa e i! tronco di un “uma- 
noide” (fig.5), che dovete cercare di as- 
semblare servendovi del braccio- robot. 
Per fare ciò, dovete ruotare i semi- 
bracci intorno alle “articolazioni” fino a 
raggiungere gli oggetti con la mano, do- 
po di che afferrarli e accostarli in modo 
da ottenere l’umanoide della figura. 

Lo scopo di tutte queste operazioni è di 
farvi rendere conto come sia complicato 
portare in modo empirico la mano nel 


punto desiderato. 

Più semplice è utilizzare il metodo ma- 
tematico precedentemente descritto. 

Come già detto, questo funziona solo 
con bracci formati da due parti, quindi, 
quando vi viene chiesto “numero di se- 
mi bracci”, rispondete 2, 

Vi accorgerete che sullo schermo, ol- 
tre al braccio e ai sei sprite già citati, 
comparirà una crocetta nera: il vostro 
mirino. 

Potete muoverlo tramite i tasti dei 
cursore. 

Se premete il tasto **-” lo spostamento 
sarà di un pixel per volta mentre premen- 
do il tasto **+” la crocetta si muove di 
dieci pixel. 

Il centro del mirino indica il punto che 
volete raggiungere con la mano. 

Quando avrete portato la crocetta nel 
punto desiderato, premete il tasto “M” e 
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il braccio si m uoverà c raggiungerà la 
posizione segnalata. 

Se tale posizione è irraggiungibile 
(cioè se non vi è intersezione tra le cir- 
conferenze) il mirino ìampeggerà e non 
vi sarà spostamento. 

Per aprire c chiudere la mano valgono 
sempre i tasti ik A’* e k 'C\ inoltre potete 
anche in questo caso muovere il braccio 
“manualmente" utilizzando i tasti “ì" e 

ii IH 


Il listato 

Se non avete voglia di digitare il prò 
gramma tutto d'un fiato » potete fermarvi 
alla linea 1510. 

Funzionerà ugualmente in modo “ma- 
nuale" poiché le linee dalla 1540 in poi 
riguardano esclusivamente V implemen- 
tazione del metodo delle circonferenze. 

Naturalmente dovrete stare attenti a 
non toccare i tasti del cursore e il tasto 
il M" mentre il programma è in esecuzio- 


ne, altrimenti si genererà un “UN- 
DEFD STATEMENT ERROR" (al- 
ternativamente potete cancellare le linee 
dalla 900 alla 940 e ogni rischio verrà 
eliminato). 

Nel listato ho inserito molte spiegazio- 
ni per rendere più facile la comprcnsiofie 
della logica delio stesso. 

Potrete così modificare, se ne avrete 
voglia, tale programma e magari trasfor- 
marlo in un giochino. Danilo Toma 


100 REM S I MULA -ROBOT 
110 : 

130 REM PROGRAMMA PER 

140 REM COMMODORE 84 

150 REM (OCCORRONO LE ROUTINE 

160 REM GRAFICHE PUBBLICATE 

170 REM SUL N, 14 DI C.C.C. ) 

130 REM 

190 REM DI DANILO TOMA 
220 : 

£30 REM ****** ********************** 

240 REM t *** INIZIALIZ2A **** 

250 REM ******************************** 

£60 POKE650 , 1£8 : POKE53230 , 1 1 : «-TEXTS ,3 

£70 S-28iE=10iT=-l 

£30 X<1 )=-150!Y< 1)=-100 

£30 : 

300 1 bFUT "^ENUMERO DI SEMIBRACCI < 1 -B> " ; N: IFN< 1ORN>3THEN300 
310 FOR I = 1T0N 

320 PRI NT LUNGHEZZA 5EMIBRACC IO M ; I ; 

330 INPUTLU > ! I FL (IX 0THENPR I NT 11 □OD 1 ’ ! GOTQ320 
340 R(I) = 3*rf-<f*C I-D/N 
350 NEXT 
360 : 

370 +-CLEAR : 4-MGRAF6 r \ ,0,10 
380 V=53248 
390 : 

400 REM **** MIRINO **** 

410 FOR I -5 19S8TO520305TEP3 

420 POKE I r 0 ! POKE I + 1 ,24 ! PGKE 1+2,0: NEXT 

430 FOR 1=51998X052080: POKE I ,£55: NEXT 

448 POKEV-3„44:PQKEV+39 r 0 

450 P0KEV , 17£s POKEV+ 1 , 159 

460 : 

470 REM **** CORPO **** 

480 FORI =5 171 2TG5 1774: POKE I ,£55 5 NEXT 
490 PGKEV-2,40 
500 : 

510 REM **** GAMBE **** 

520 FOR I =5 1778T05 1838STEP3 

530 P0KEI ,0 SPORE 1 + 1 , 126 : POKE 1+8,0: NEXT 

540 POKEV-7,41 !PQKEV™6^41 

550 : 
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568 REM **** BRACCIA **#* 

578 POR I =5 IB40TO5 ISSI; PGKE I ,£55 : P'ÉXT 
580 FOR I "5 1 852T05 1 902 s POKE 1,0* NEXT 
590 PQKEV-5,42:POKEV-4,4£ 

800 : ■ 

810 REM **** TESTA 

620 FOR 1 =5 1304T05 Ì333STEP3 

630 PGKE 1,7? POKE I + 1 ,255: POKE I +2 ,224 ff'EXT 

640 FOR I =5 1S34TG5 1949STEP3 

650 POKE I ,0 £POKE I + 1 ,255 : POKE I +2 ,0* NEXT 

660 FOR I “5 1950TG5 1966 : POKE t ,0 ilMEXT 

670 POKEV-3 ,43 

630 : 

630 REM **** POSIZIONA 5PRITES **** 

700 POR I = 1T06 

710 PDKEV+ I *2,1 *35+45 : PGKEV + 1 #2 + 1 ,230 
720 POKEV+ 1+33,5 
730 NEXT 

740 POKE V +21 , 127 + <N< >2 ) ePQKEV+27 , 1 26 
750 i 

760 A= 1 : GOSUB 1060 
770 : 

780 REM a********************** ********* 

790 REM * ATTESA ED E3ECU2 IGfC COMANDI * 

800 REM ******************************** 

810 FORJ=0TOS: BETA$: NEXT 
820 P=0 : GETA$: 1FA$=" "THEN820 

830 IFA$ S 11 A "THENC-0 :T--1 : GOSUB 1410*6=28 : C=2 : GOSUB 14 10 

840 IFA$= n C H THENC =0 : GOSUB 1 4 10 : S =2 1 : C=2 : GOSUB 1 350 

850 I F A$ s " + 11 THE JsE » 1 0 

860 IFA$ s * fc ”*THENE>l 

870 IFfì$>' l 8 ,, ftNDM< "I fl THENP = “E # jf/180 

880 IFA$> n ,, ANDA$< " * *THENF =E* rf/lS0 s A$=CHR$£ASC < A$) + 16 ) 
890 IFN< >2THEN860 

300 IF A$= " EX THENPY" “E : PX=0 : GOSUB 1 540 
3 10 IFA$= ”1|' , THENPY=E »PX=0 ; GOSUB 1 540 
820 IFA$= l, H"TTHENPX=E :PY=0 : 60SUB 1540 
330 IFA$ = "H M THENPX=-E :PY=0 l GOSUB1540 
940 IFA$= IE M ,r THE NGOSUB 1670 
950 i 

S60 1FFS0THEN310 
970 A-VAL(AS) : IFA>NTHEN810 
980 GOSUB 1060 
930 GOTO810 

1000 i 

1010 REM ******************************* 

1020 REM **** SUBROUTINES **** 

1030 REM ******************************* 

1040 : 

1850 REM ** CALCOLA NUOVE POSIZIONI ** 

1060 TX C A ) =X ( A > : TY CA > = YCA > 

1070 FOR I ™ATQM 
1080 R<n=R(I)+P 
1630 TXCI + l>-XU + n 
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1X00 X(I+1>=X< I >+COS<R< I ) >*L< 1) 

1 1 10 TY(I+1)=Y<I+1) 

1120 Y(I + 1)=YU >+SIN<R< I > >*LCI > 

1130 KEXT 

1140 : - 

1150 REM ** EVIDENZIA LO SPOSTAMENTO ** 

11G0 «-COLOR3iFORI=ATON 

1170 «-DRALÌX< I ),Y< I ),0,X(I + 1) ,Y(I + 1 ),0 

1180 NEXT 

1 190 «-ARCXCN+1 >,Y<N+1)-10,0,S, 14,-rf/4, 1 .25Ht*,*/2 
1200 : ’ ! 

1210 REM * CANCELLA VECCHIA POSIZIONE * 

1220 «COLOR0:FORI=ATON 

1230 «-DRAWTXC 1 >,TY< I > ,0,TX U + 1) ,TY< I + 1 ) ,0:KEXT 
1240 «-ARCTX (N+ 1 ) ,TY(N+ 1 ) - 10 ,0 ,S , 14 , -tf/4 , 1 .25** ,*/£ 

1250 i 

1260 REM * PASSA ALLA MJOVA POSIZIONE * 

1270 X=X CN+ 1 > + 172 : Y= 159-Y CN+ 1 > 1 6GSUB 1440 
1280 «-COLOR 1 i FOR I =ATON 

12S0 «-ORAWXCI ) ,Y< I ) ,0 ,X < I + 1 > ,Y<I + 1) ,0 :NEXT 

1300 «-COLORE !«-ARCX<N+ , l ) ,Y(N+1 )-10,0,S, 14 ,-it/4 , 1 . 25»if , rf/2 

1310 RETURN 

1320 i 

1330 REM ** VERIFICA SE HA AFFERRATO UNO SPRITE *# 

1340 : 

1350 F0RJ=2T012STEP£ 

1360 SX=PEEKCV+J>-256*<0< > (PEEK ( V+ 16 ) AND£t ( J/2 ) > > 

1370 I FX < SX - SOR X>SX+8THEN 1400 

1330 IFY<PEEK ( V+ J + 1 > -80RY >PEEK ( V+ J+ 1 ) +8THEN1400 
1390 T=J: J=16 
1400 MIXT 

1410 «-COLORC:«-ARCX(N+l),Y(N+l>-10,0,S,14,-n/4,l.£5*tf,tf/2 I 

1420 : 

1430 REM *t SE I <> -1 HA IN MANO UNO SPRITE ** 

1440 IFT=-1THEN RETURN 

1450 REM *** SPOSTA LO SPRITE *** 

1460 X = INT <X ) 

1470 IFX<0ORX>344ORY<0ORY>£55THENPOKEV+21 , PEEK (V+21 )ANO (255-2 1 (T/2 > >:RETURN 
1480 IFX<256THENPQKEV+16,FEEK(V+16>AND(255-£t(T/£>) 

1490 IFX >255THENP0KEV+ 16 , PEEK (V+ 16 )GR£t (T/2 ) ! X=X-£56 
1500 POKEV+T,XsPOKEV+T+l ,Y.PGKEV+21 ,PEEK(V+£1 )0R£t(T/2) 

1510 RETURN 
1520 I 

1530 REM *** SPOSTA IL MIRINO *** 

1540 XX =X : YY=Y 

1550 X=PEEK ( V ) +PX +256* (PEEK (V + 16 ) ANO 1 ) 

1560 Y=PEEK <V + 1 ) +PY 
1570 TT=T:T=0 
1580 GQSUB 1470 

1590 T=TTsX=XX:Y=YY 1 

1600 RETURN 
1610 5 

1620 REM *** CALCOLA SPOSTAM. NECESSARIO *** 

1630 REM **# PER RAGGIUNGERE IL MIRINO *** 
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1640 : 

1650 REM ** CERCA INTERSE2 IONE TRA LE CIRCOIvFERENZE ** 

1660 REM ** DI CENTRO tXX,YY] E IX<D,Y<1)3 ** 

! 670 XX * - 1 7 1 +PEEK < V ) +£56 * ( PEEK < V + 1 6 JAND 1 > 

1680 YY=155-'PEEK<V + 1 ) 

1630 A1=-£*X< 1 )IB1=-2*YU )!C1=X< 1 )*X< 1)+Y<1 )*YC D-LCi >*L( 1 > 
1 700 A£= -£ *XX : B£ = -£*YY ; C£ =XX *XX + YY*YY-L < £ ) *L < £ ) 

1710- A3=Al-A2sB3=B£-Bl :C3=C2-C1 

1720 A4 =A3 * A3 + B3 *B3 

1730 B4=B3*<2*C3+A3*A1)+A3*A3*B1 

1740 C4=C3*<C3+A3*A1 )+A3*A3*Cl 

1750 DY=B4#B4-4*A4*C4 

1760 1FDY<0THEN2110 

1770 Yl = C-B4+SQR<DY) 3/<2*A4) 

1730 C5-B3*Y1+C3 
1730 X 1 =C5/A3 
1300 : 

1310 REM ** CALCOLA LE ROTAZIONI OA EFFETTUARE ** 

1820 DX < 1 ) =X I -X < 1 ) : DY <1)=Y1-Y<1) 

1830 DXC2)=XX-X1:DY(£)=YY-Y1 
1 840 TX ( 1) =X C 1 > i TY< 1> =Y< 1 > 

1850 F0RI=1T02 

1860 IFDX<1)=0ANDDY<I)>0THENAN< I ) = <»/£: GOTO 19 10 
1870 IFDX< I)=0ANDDY< IO <0THENAN< I )=-</£ ì GOTO 18 10 
1880 AN< I )=ATN(DY< 1 )/DX< J ) ) 

1880 1FDXC I )<0ANDDY< 1) <0THENAN( I) =AN< I ) -n 
1900 IFOX< n<0AN3OYU)>0THENAN( 1 >=AN< I ^ + n 
1910 DR( I )=AN< I >-R< I > 

13£0 NEXT 
1930 : 

1340 REM **** SUDDIVIDE LO SPOSTAMENTO **** 

1950 REM **** IN .1, £ OPPURE 3 PASSI **** 

1960 A=1 «H=3 

1970 IFABS(DR< 1 ) )+ABS<OR<£) X . 8THENH-2 
1980 1FABS<DR< 1 > >+ABS<DR (£> )< .4THE1*1=1 
1990 FOR J = 1 TOH 
£000 FOR I - 1 TO£ 

2010 ,RCI)=R< n+DR<I)/K 
2020 TX (I+1)=X<1+1) 

2030 x< i+n=x<i)+cos<R<n)*L(n 

2040 TY (I+1)=Y(I+1) 

2050 y<i+i >=yu )+sin<r< n >*l< n 

£060 NEXT 
£070 6OSUB1160 
£080 1CXT: RETURN 
£090 : 

£100 REM **** MIRINO LAMPEGGIANTE **#* 

2110 FOR I =0TO3 
2120 POKEV+39, 1 
£130 FDRJ =0TO50 5 NEXT 
2140 POKEV+33,0 
£150 FOR j =0TO50 s NEXT 
2160 NEXT 
£170 RETURN 
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L’ UTILE 

COMMODORE 64 

una Cassaforte 
Chiamata 

Commodore 64 

dì Fabio Sorgato 


Come rendere 
incopiabili 
i vostri programmi. 


iS in da quando vennero messi in com- 
mercio i computer, le software- house de- 
risero di difendere i propri prodotti evi- 
tando la piraterìa (copia abusiva di pro- 
grammi) con tecniche di protezione sem- 
pre più sofisticate. Vediamo qualche 
trucco per proteggere anche i vostri pro- 
grammi personali. 

I programmi che si proteggono ne] mo- 
do che stiamo per descrivere generano 
inconvenienti anche ricorrendo alle 
stampanti, quindi non ci è possibile.., 
stamparli. E’ pertanto necessario seguire 
alla lettera le operazioni da compiere. 

Supponiamo che il programma da pro- 
teggere sia: 

100 PRINTTI PB3* * : REM 

Subito dopo la REM: 

1 / scrivete due volte i doppi apici 
(SHIFT+2); 

21 cancellatene uno premendo il tasto 
DELETE (il primo in alto a destra); 

3/ premete 21 volte il tasto SHIFT insie- 
me con DELETE (sembrerà che non ac- 
cada nulla, ma fatelo lo stesso); 



4/ premere un egual numero di volte il 
solo tasto DELETE (appariranno altret- 
tanti caratteri “T T ' in re verse, cioè nero 
su bianco); 

5/ digitate la parola PROTETTO. 

Terminato di digitare, fate un List e se 
non avete fatto alcun errore vedrete in 
sostituzione della riga 100 la sola scritta 
PROTETTO. 

Cos’è successo? OgniT 'Te versata" 1 ha 
cancellato, durante la fase di List, il ca- 
rattere che la precedeva (tra cui il nume- 
ro di riga Basic); così abbiamo ottenuto 
la visualizzazione della sola scritta. 

Se invece della parola PROTETTO 
inserite spazi bianchi (terminanti col ca- 
rattere di virgolette), renderete invisibile 
la riga Basic. Dato il RUN osserverete 
che la riga, sebbene non più visibile, fun- 
ziona ancora. 

L'unico problema è che per rendere 
in visibile un intero listato sarebbe neces- 
sario fare scomparire tutte le righe, con 
un lavoro lungo e noioso ed un notevole 
spreco dì memoria. 
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Cancellate il programma (NEW) e 
scrivete: 

100 PRINT“PIPPO":REM L 

lì carattere dopo il REM non è una L 
maiuscola, ma il carattere ottenuto con 
SHIFT + “ L Provate a fare un List. 
Otterrete 7SYNTAX ERROR, con con- 
seguente blocco del listato. 

Combinando le due tecniche apprese, 
sarà possibile rendere più difficile la let- 
tura del listato. 

Per mettere in grave difficoltà anche le 
persone più esperte sarebbe consìgliabile 
terminare ogni riga con un REM seguito 
da L+SHIFT- Infatti comprendere il 
programma sarà un lavoro lungo e noio- 
sissimo che scoraggerà la prosecuzione 
delia s protezione. 

Un problema 

Purtroppo, nei casi visti, il programma 
potrà comunque essere riprodotto sem- 
plicemente con un’operazione di SA VE 
senza curarsi di come è fatto “dentro 1 ". 

Affrontiamo quindi questo problema. 
Innanzitutto è necessario sapere che 
quando uh programma viene caricato da 
cassetta, il suo nome viene conservato in 
una precisa zona di memoria, (da 833 a 
1023, ben più lunga dei sedici caratteri 
ufficialmente con sentiti), che non verrà 
cancellato fino alla successiva operazio- 
ne che chiama in causa il registratore e 
che, ovviamente, verrà perso in caso di 
spegnimento del computer, reset, 
SYS64738, eccetera. 

Proviamo a registrare il solito pro- 
gramma (100 PRINT“PfPPO”) cosi: 

SAVE'TROGRAMMA” 

Ricarichiamolo e, ad operazione avve- 
nuta, digitiamo direttamente da tastiera i 
seguenti comandi: 

CL R : FORT= 833TO 1023 : A$ = A$ 

+CH R$ (PEE K(T)) : NEXT : PRINTA % 

Solo ora la variabile A$ conterrà il 
vero nome del programma appena cari- 
cato che, nella gran parte dei casi, ha 
valore solo nei primi 16 caratteri. 


Tutto ciò ci permetterà di mettere a 
punto una tecnica di protezione. 

Il trucco è semplice: si nasconde nel 
nome del programma un carattere (che 
assumerà la funzione di “controllo") e 
mediante una riga nascosta o un listato 
non listabile si controlla se il carattere 
previsto è presente, In caso contrario si 
predispongono risultati imprevedibili. 
L'accanito copiatore, ignaro del caratte- 
re di controllo registrerà, il programma 
solo con il nome visibile o magari con un 
altro nome e cadrà nella trappola. 

Facciamo una prova con il listato 1: 
nelle righe 10 e 20 abbiamo lì solito con- 
trollo nascosto. 

Senza dare RUN registriamo il prò- 
grammacon: 

AS=“? ,1 +CHRS(20) + 

“PROGRAMMA” : SA VEAS 

In A$ ìt è il carattere di controllo 
(vedi riga 20), CHR$(20) è una T re ver- 


sata che rende invisibile il **?” 
cancellandolo. 

Finita la registrazione ricarichiamo LI 
programma, diamo RUN e, se tutto è 
stato fatto nel modo esatto, funzionerà. 

Ora diamo : 

SAVE* PROGRAMMA” 

cioè il nome che è quello visto al 

FOLFND durante il caricamento. 

Ricaricatolo, diamo RUN e vedreme 
il computer tornare allo stato in cui si 
trovava al momento dell’ accensione, cor 
la conseguente cancellazione del pro- 
gramma: la protezione ha funzionate 
bene! 

I pirati più astuti potranno però sem- 
pre copiare il programma con un duplica 
tore di cassette musicali. In questo caso, 
purtroppo, non c'i assolutamente nulla 
da fare! - 

A proposito, non mandateci listati da 
pubblicare protetti: fidatevi almeno d 
noi! 
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j c argomentazioni prese in esame nella 
scorsa puntata di "Imparando ad imparare" 
(C.C.C. Ottobre 85) portavano alla soluzione 
"elettronica’" di piccoli problemi secondo 
procedimenti lineari". Procedimento linea- 
re significa: una serie di istruzioni che si susse- 
guono una dopo Palerà verso la fine del pro- 
gramma senza essere rìeseguiie 

Tali procedimenti, in realtà, vengono usati 
molto poco poiché risolvono i problemi con 
grande dispendio di lavoro (bisogna scrivere 
tanto!!!) c di memoria. Sulla memoria vale la 
pena aprire una piccola parentesi, dedicate a 
coloro che partono da zero. 


Il ha perso la memoria? 

Tutti i computer hanno una memoria (di 
solito...)!! otte le memorie sono più o meno 
grandi, più o meno piccole; questo- significa 
che se le memorie sono misurabili, deve uc- 
ce ssa riamo ne te esistere un’unità di misura. 
Sia chiaro, nessuno dirà mai di possedere un 
computer con "tori’ centimetri o "tot" chili di 
memoria, infatti l'unità di misura in questione 
si chiama Byte e non si riferisce nè alla lun- 
ghezza nè al peso, bensì alla quantità di infor- 
mazioni contenibili dalla memoria stessa 

Spesso si sente dire die un Byte corrispon- 
de ad un carattere. E’ vero ma fino aci un certo 
punto: più propriamente un Byte c un conte- 
nitore di cifre binarie. Infatti un byte è com- 
posto di otto bit e un bit corrisponde ad una 
cifra binaria. Le cifre binarie si ^presentano 
con i numeri 0 e I; se scriviamo ODI, indiche- 
remo un numero binario composto di tre cifre 
o meglio di tre bit. il numero binario 
limili corrisponde al numero decimale 
256, è composto dì otto bit e rappresenta h 
grandezza numerica massima contenibile in 
un byte. 

Anche se un byte può incamerare un nume- 
ro di tre cifre, in verità, dal puntò di vista 
alfabetico, il byte non può contenere più di un 
carattere perchè ogni carattere viene scritto 
nella memoria sotto forma di codice numerico 
(cs. la lettera "a" corrisponde al numero 65); 
se mettessimo più di un codice numerico nello 
stesso byte non saremmo più in grado di rico- 
noscere 5 codici originali in un secondo 
momento. 

A q uè sto puntò qua le uno dir à : " ma a flora ì I 
mio "64" ha perso la memoria! 1 '. Effettiva- 
mente, all apparire della scritta “64K RAM 
System 38911 BASIC Bytes free" qualcuna 
potrebbe pensare di avere un Commodore 
con soli 3891 ] byte di memoria, ma non è cosi ; 
il vecchio Commodore ha sempre la sua giusta 
"dose" di byte, questi però non sono< tutti a 
disposizione dell'utente, La scritta dice, infat- 
ti, 38911 byte liberi per il Basic, gli altri sono 
occupati da programmi "speciali" che gesti- 
scono la macchina. Altra lecita domanda: 
"Da dove arrivano? lo non lì ho mai caricati 
in memoria!!". La scritta dice 64K RAM e sta 
a significare che sono disponibili 64000 bytes 
di memoria RAM, ma cosa vuol dire?, Signi- 
fica che esistono vari tipi di memoria. 

Senza entrare nei particolari, è utile sapere 
che la memoria RAM può essere ria scritta 


che letta c si cancella se spegnarne il compu- 
ter; quindi quei programmi '"intrusi" di prima 
non possono essere qui ; infatti sono contenuti 
da un'altro tipo di memoria della ROM e con 
particola n accorgimenti, quando si accende il 
computer occupano alcune zone della RAM 
togliendo una parte dei 64K bytes. Chiara- 
mente Sa ROM non si cancella mai, però non 
può essere scritta. 

Di questi particolari programmi ci riservia- 
mo d] parlare nel prossimo numero. 

Come fare impazzire la ‘Tartaruga 1 " 

Tornando al discorso iniziale, i procedi- 
menti lineari, quindi, non vengono molto usa- 
ti, perchè occupano tanta RAM; quasi sem- 
pre invece i programmi vengono costruiti me- 
dia me procedimenti ciclici. 

Un ciclo (gh addetti ai lavori lo chiamano 
"loop") è una struttura ripetitiva; nella sua 
forma più elementare consiste in un gruppo di 
istruzioni ricseguite a 11 'infinito. Attenzione! 
"All'Infinito" non significa che non ri posso- 
no fermare, si intende semplicemente che il 
programma continua a "girare" fino a quando 
non si preme il tasto R UN/STOP (vedi figura 
1 >, 


to. Chiaramente per lare questo occorre un 
istruzione particolare, un istruzione che gli 
amanti delle definizioni teoriche chiamano 
"salto incondizionato", e che In E.LÌ.ANA. 
si chiama LINEA. 

Il comando LINEA fa si che l'esecuzione 
del programma ‘salti" ad un altra istruzione; 
l'istruzione LINEA è seguita da un parame- 
tro, che deve corrispondere al numero di riga 
in cui deve “saltare" Fesecuzione. Una volta 
effettuato il "salto", il programma viene ese- 
guito da quel punto continuando in ordine 
crescente di linea in linea. Se cancelliamo le 
righe dalla 220 alla 270 del programma che 
esegue il quadrato e sostituiamo la riga 28(1 
con: 

280 LINEA 200 


potremo ottenere una semplicissima ma 
esemplare procedura ciclica infinita. Infatti, 
digitando i! comando ESEGUI potremmo ve- 
dere che la tartaruga disegna il quadrato volu- 
to con una singolare variante: là dove prima 
interrompeva l'esecuzione ora continua, rie- 
scguendo lo stesso quadrato senza soluzione 
di continuità (sembra impazzila!). L’arresto 



f I 9 : . 1 


Il programma "quadrato" visto nel numero 
precedente e riportato qui di seguito, può 
essere utilizzato per comprendere il concetto 
di struttura ciclica infinita. 

100 ALBUM 
110 MATITA 
200 DESTRA 90 
210 AVANTI 20 
220 DESTRA 90 
230 AVANTI 20 
240 DESTRA 90 
250 AVANTI 20 
260 DESTRA 90 
270 AVANTI 20 
280 FINE 

Le righe 22IL270 non sono altro che la ripe- 
tizione della 200 e 210 '(meno male che il 
quadrato ha solo quattro lati!) e potrebbero 
essere ricseguite per ottenere lo stesso effet- 


deve essere determinato "dall’esterno'* pre- 
mendo RUN/STOP. 


Cosa c*è sotto.il programma? 

Anche il caso di cui sopra non trova grande 
riscontro nelle pratiche “ programmatone" 
dei più; ci sono altri sistemi per creare struttu- 
re cicliche e fare in modo che vengano esegui- 
te un numero finito di volte, oppure che ven- 
gano eseguite fino al verificarsi di determina- 
te condizioni in modo che non sì debba inter- 
venire dall ‘esterno. 

Tralasciando per ora Futilità dell’ istruzione 
LINEA, sulla quale torneremo iti seguito, in- 
troduciamoci in un nuovo modo di scrivere 
programmi che offre maggiori possibilità 
risolutone. 

Osservate questa nuova versione del pro- 

gramma "quadrato”: 
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KXI ALBUM 
1)0 MATITA 

120 SOTTOPRQGRAMMA 200;4 
130 FINE 

200 DESTRA 90 
210 AVANTI 20 
220 TORNA 

Le righe 200- 220 costituiscono un sotto pro- 
gramma , e terminano con l'istruzione TOR- 
NA; per gli affezionati del BASIC quest h u!ti- 
nia corrisponde al RETURN, La riga: 

120 SOTTOPROGRAMMA 200;4 

costituisce la “chiamatà" dèi sottoprogram- 
ma e contiene due parametri; numero dL linea 
dove inizia il sottoprogTamma da “chiamare 71 
c numero di volte che questo deve essere ese- 
guito. 3 conoscitori del BASIC avranno già 
capito che ]' istruzione SOTTOPROGRAM- 
MA corrisponde al GOSUB con Paggiunta di 
qualcosina, 

Vediamo per gradi cosa succede. Nelle ri- 
ghe 200-210 rimane sempre il nucleo di istru- 
zioni da ripetere per otlenere un quadrato; in 
riga 220 però non troviamo l'istruzione LI- 
NEA che produce il "loop” ma P istruzione 
TORNA. Se provate a far eseguire solo que- 
sto spezzone del programma riscontrerete un 
errore; E.LI.ANA, domanderà: “DOVE 
TORNO? ERRORE NELLA LINEA 220". 
In pratica un sottoprogramma non può essere 
eseguito cosi com’è* ma deve essere chiamato 
da un'altra istruzione alla quale appunto tor- 
nerà dopo essere stato eseguito. 

L'istruzione di chiamata ò naturalmente 
SOTTOPROGRAMMA; quando E.LI.A- 
NA. trova questa istruzione salta alla riga 
specificata come primo parametro (nel nostro 
caso la 200) ed esegue fino a quando trova 
l'istruzione TORNA. Il secondo parametro 
invece indica i! numero di ripetizioni dell'ese- 
cuzione del sotto programma; ed è proprio 
quest'ultimo che ci permette dì costruire pro- 
cedure cicliche eseguibili un numero finito di 
volte, 

Nel caso del quadrato, la procedura in riga 
200 che esegue un lato, se richiamata quattro 
volte, produce appunto un quadrato. 

Analogamente, si può costruire un triango- 
lo equilatero poiché l’angolo di rotazione e la 
lunghezza del lato sono uguali come nel qua- 
drato; variano chiaramente i gradi ed il nume- 
ro di lati. Questi sono tre così come indica il 
secondo parametro delta chiamata SOTTO- 
PROGRAMMA nella procedura qui di 
seguito; 

[T R I ANGOE O EOI J I [ , ATT :KO] 

100 ALBUM 
110 CESTINO 
120 SINISTRA 90 
130 MATITA 

140 SOTTOPROGRAMMA 200;3 
150 FINE 

200 DESTRA 120 
210 AVANTI 30 
220 TORNA 


Il programma è analogo al precedente, t u- 
nica differenza sostanziale consiste nella riga 
120 che posiziona la tartaruga in modo die 
pòssa disegnare un triangolo con la punta ver- 
so l’alto. Questo accorgimento deve essere 
preso in grande considerazione, poiché sta 
alla base di tutti i lavori che utilizzano più 
volte la stessa procedura. 

Ogni volta che si chiama una procedura, la 
tartaruga deve essere collocata nel punto in 
cui vogliamo che il disegno venga eseguito c 
con l'angolazione corretta, Per meglio com- 
prendere il concetto, provate a spostare la 
tartaruga e variare la sua angolazione prima 
di chiarnare tino dei sottoprogrammi che ese- 
guono il quadrato o il triangolo, 

Con nstruzione sol loprogra ruma, quindi, 
possiamo scrivere procedure che saranno ese- 
guite più volte c per un numero preciso di 
ripetizioni, 

Prima di vedere come sfruttare più proce- 
dure all'interno di un programma, riteniamo 
utile aggiungere a quetle già viste una proce- 
dura rettangolo. Iti questo caso ci troviamo di 
fronte ad una soluzione leggermente diversa; 
abbiamo due coppie di lati di differente misu- 
ra. La cosa si risolve scrivendo una procedu- 
ra, richiamabile due volte, che esegue un lato 
""lungo” cd uno “corto 7 . 


[RETTANGOLO] 

100 ALBUM 
110 CESTINO 
120 MATITA 

130 SOTTOPROGRAMMA 200;2 
140 FINE 

200 A VANTI 20 
210 DESTRA 90 
220 AVANTI 40 
230 DESTRA 90 
240 TORNA 


Ancora più sotto 

Con questo “fardello 1 di Sfjtt opro grammi 
(quadrato, triangolo, rettangolo) possiamo 
provare a costruire un programma psù com- 
plesso. Torna utile riprendere la procedura 
'"casa elettronica” del precedente numero, 
per affrontarla secondo questa nuova ottica. 
Dopo le solite righe preliminari (ALBUM, 
MATITA, CESTINO) potremmo comincia- 
re la stesura scrivendo: 

700 SOTTOPROGRAMMA 720;3 
710 TORNA 
720 DESTRA 120 
73D AVANTI 30 
74(1 TORNA 

800 SOTTO PROGRAMMA &20;2 

810 TORNA 

820 AVANTI 20 

830 AVANTI 30 

835 DESTRA 90 

840 TORNA 


Queste righe di programma definiscono le 
procedure rettangolo e triangolo necessarie 
alla “costruzione" della "casa”. Chiaramen- 
te, così come sono impostate non servono a 
nulla, nel senso che debbono essere richiama- 
te a loro volta come sottoprogTam mi; infatti le 
righe 710 e 810 contengono l'istruzione 
TORNA, 

Una procedura “cosa”, che le utilizza, può 
essere scritta in questo modo: 

500 SOTTOPROGRAMMA 800:1 [disegna 
il rettangolo] 

505 AVANTI 20 {sposta la tartaruga in posi- 
zione corretta] 

510 SINISTRA 90 [corregge Tango! azione] 
515 SOTTOPROGRAMMA 7fKI;l [disegna 
il triangolo] 


A questo punto la casa c “pronta", ma 
senza finestre; la procedura quadrato potrà 
ovviare a questo inconveniente se cosi 
consegnata; 

600 SOTTOPROGRAMMA 620;4 
610 TORNA 
620 AVANTI 5 
630 DESTRA 90 
640 TORNA 


Anche in questo caso bisogna provvedere 
alla necessaria chiamata ma. cosi come per le 
altre procedure, bisogna posizionare la tarta- 
ruga correttamente perché le “finestre” siano 
collocate al posto giusto: 


520 

525 

53U 

535 

54(1 

545 

550 


VOLA 
DESTRA 90 
INDIETRO 5 
DESTRA 90 
AVANTI 5 
MATITA 


[posizionano] 

1 

[ la 

I 

[tartaruga] 
[disegnano] 


SOTTOPROGRAM MA 600; I 

[la finestra] 


Le righe dalla 520 alla 550 provvedono alla 
prima finestra; spostando avanti la tartaruga 
(riga 560) possiamo poi disegnare anche la 
seconda in posizione corretta: 

555 VOLA 
560 AVANTI 15 
565 MATITA 

570 SOTTOPROGRAMMA 600:1 
575 TORNA 


Scatole cinesi 

Ora abbiamo creato la procedura casa ; pos- 
siamo contentarci di questo, oppure, in un 
secondo momento, possiamo decidere di di- 
ventare ^imprenditori ed i IT ‘ lanciandoci nella 
costruzione di un intero paese. E’ owiochcin 
questa seconda impresa la procedura casa è 
destinata a diventare una piccola parte del 
“tutto". Basta continuare per la stessa strada, 
facendo diventare il programma “casa" sorto 
programma del programma “paese elet- 
tronico". 
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Viene da pensare alle scatole cinesi: un sot- 
toprog ramina che contiene un soitoprogram- 
ma che contiene un sottoprogramma, ,, dove 
si finirà? Volendo, si potrebbe non finire mai 
(memoria permettendo) ma. generalmente, 
costruiti ì vari sottoprogrammi» si organizza 
una procedura che li gestisca tutti; la procedu- 
ra in questiona si chiama “programma princi- 
pale "oppure ,4 Main Program” e viene posta 
generalmente al Fi ni zio del programma 
stesso. 

Nel programma che questo mese vi propo- 
niamo, “paese elettronico", tra la riga 100 e la 
27U troviamo il 4 Mairi Program”; seguono le 
procedure "Chiesa", “Albero" e "Casa” che, 
chiamate diverse volte dal programma princi- 
pale, provvedono, con opportuni posiziona- 
menti delta tartaruga, alla “costruzione” di 
questo simpatico “paese". 

Dalla riga 600 alia 800 sì susseguono le pro- 
cedure di base, quelle che abbiamo usato per 
la "casa", queste ultime sono le procedure 
geometriche che forniscono gli elementi per 
la “cosiruztone". 


L’esercizio migliore per approfondire i con- 
cetti esposti sin qui potrebbe consistere nel- 

l'apportare modifiche ali 1 assetto urbanistico 
del paese; m parole povere sarebbe utile spo- 
stare le varie case, alberi ecc. aggiungendone 

magari qualcuna, Per fare questo bisogna te- 
nero presente che pcT utilizzare correttamen- 
te la procèduta casa, la tartaruga deve essere 


posizionata "a tèsta in su" e così anche per ie 
procedure chiosa ed albero. 

Chi volesse apportare modifiche utilizzando 
le sotto proceri tire dalla riga 600 alla 800 deve 
servirsi dello stesso accorgimento tranne che 
per i triangoli, i quali devono essere richiama- 
ti posizionando la tartaruga ruotata a sinistra 
di 90 gradi rispetto al lato basso dello 
schermo. 




Qualcuno, più esperto, potrebbe 
pensare che le cose qui proposte sono 
4, troppo semplici 1 ; effettivamente lo 
sono, se le guardiamo dal punto di 
vista dei risultati grafici ottenuti sul 
video. Ci preme quindi fare alcune 
precisazioni. 

In queste righe stiamo cercando di 
realizzare una guida all 1 uso degli stru- 
menti informatici attraverso un lin- 
guaggio estremamente semplice co- 
me È.LI.ANA, Conseguentemente, 
quello che maggiormente ci preme 
non è certo la realizzazione di "mira- 
bolanti pirotecnie": fuochi artificiali 
se ne trovano in quantità sulle altre 
pagine della nostra rivista. 

Moltissimi hanno sperimentato la 
confusione che nasce dalla costruzio- 
ne di programmi troppo lunghi e male 
organizzati; questo è il problema di 
tutti: arrivati ad un certo punto non sì 
riesce più a trovare La causa di alcuni 
errori, o, peggio, non ci si ricorda più 
come funzionava un determinato 
spezzone. Un buon programma si ve- 
de dalla bontà della sua struttura e 
non dalla lunghezza o dagli effetti che 
produce. 

In questo trova fondamento la scel- 
ta che abbiamo fatto: iniziare con 
procedure semplici, per insegnare a 
Strutturare un programma. Una volta 
assimilato questo modo di procedere 
si può intraprendere la strada dei 
*' programmi pirotecnici 1 ', senza ri- 
schiare eli incappare nei mali sopra 
accennati. 



t PRESE ELETTRONICO] 


1 m ALBUM 
U 35 CESTINO 
116 VOLA 
115 SINISTRA 90 
120 AVANTI 150 
125 DESTRA 90 
130 INDIETRO SO 
135 MATITA 

140 SOTTOPROGRAT1MH 500; 1 

145 VOLA 

150 AVANTI 38 

155 SINISTRA 90 

168 INDIETRO 15 

165 MATITA 

170 SOTTQPROGRAMMA 580; 1 




+ljgl 

| sottoprasfrmitHa | 


A 

ohi»* 

□ □ 


175 VOLA 
180 AVANTI 25 
135 SINISTRA 90 
190 INDIETRO 15 
195 MATITA 

208 S0TT0FR0GRAMMR 450;1 

205 VOLA 

210 INDIETRO 39 

215 DESTRA 90 

220 INDIETRO 20 

225 MATITA 

230 S0TT0PR0GRAMNA 450; 1 

235 VOLA 

240 INDIETRO 50 

245 DESTRA 90 

250 INDIETRO 20 

255 MATITA 

260 SOTTOPROGRAMMA 406; 1 
270 LINEA 270 




C CHIESA ] 

480 SOTTOPRQGRHMMR 858; 1 

485 AVANTI 40 

410 SINISTRA 90 

415 SOTTOPROGRRMMA 750; 1 

428 INDIETRO 14 

425 DESTRA 90 

430 INDIETRO 40 

435 S0TTQPR00RAMMR 500; 1 

440 TORNA 
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C RISERO ] 

450 SOTTOPRDGRfìmR 650; I 

455 VOLfì 

460 SINISTRR 90 

465 RVRHTI 7 

470 MRTITfi 

475 SOTTOPRQGRRNMfì 750; 1 
480 TORNR 


C CRSfì ] 


580 SOTTOPROGRRMMR 800; 1 

505 RVfìNTI 20 

510 SINISTRR 90 

515 SOTTOPROGRRMMfì 700 ; l 

520 VOLfì 

525 DESTRR 90 

530 INDIETRO 5 

535 DESTRA 90 

540 RVfìNTI 5 

545 MATITA 

550 STTOPROGRRriNfì 6O0; 1 
555 VOLfì 
560 RVfìNTI 15 
565 NfìTITfì 

570 SOTTOPROGRRIIMfì 600; 1 
575 TORNR 




[QUADRATO] 


[TRIfìNGOLO lì 


CRETTRNG0LO 13 


690 SO T T DPR OORflMMR 620*4 
610 TORNR 
620 RVfìNTI 5 
630 DESTRR 90 
648 TORNR 


708 SOTT 0 PROGRAM M R 726; 3 

710 TORNR 

728 DESTRR 120 

738 RVfìNTI 36 

740 TORNR 


800 SOTTOPROGRfìMNR 328; 2 

810 TORNR 

820 RVfìNTI 28 

825 DESTRR 90 

830 RVfìNTI 30 

835 DESTRR 90 

848 TORNR 


I RETTANGOLO £] 


[LINER] 

650 RVfìNTI 2R 
660 TORNR 


[TRIfìNGOLO 23 

750 SOTTO PROGRRT1MR 770; 3 

768 TORNR 

770 DESTRR 128 

78@ RVRHTI 14 

790 TORNR 


850 SOTT DPRQGR fl M M R 370; 2 

860 TORNR 

870 RVRHTI 40 

875 DESTRR 90 

888 RVRHTI 14 

885 DESTRR 90 

898 TORNR 
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Prendi monitor o disk drive 




Monitor Commodore e disk drive 1541 
sono le periferiche che ti permettono di 
utilizzare al meglio ii tuo computer 
Commodore e di prepararti per il futuro. 

Con il disk drive Commodore, 
memorizzi più velocemente i dati su 
dischetti standard e puoi caricare i 
programmi in un attimo. 

Con il monitor a colori ad alta 
definizione d’immagine puoi evidenziare ie 


tue qualità di programmatore, utilizzando 
al massimo le capacità sonore e grafiche 
del tuo computer. 

Monitor e disk drive oggi convengono, 
perchè hanno un prezzo eccezionale, come 
d’abitudine Commodore. Inoltre, proprio 
per dimostrarti quanto puoi fare di più con 
queste periferiche, Commodore ti fa un 
regalo speciale , 

Acquistando monitor o disk drive entro il 









30 novembre 1985, hai insieme, già 
compresi nel prezzo come regalo, il favoloso 
computer-rack creato per ospitare il tuo 
sistema Commodore, oppure i formidabili 
sci del team Commodore Adventure. 

Due opportunità incredibili ma vere. 

Vai subito al tuo negozio Commodore e 
approfitta dell’offerta “ Fai di più col tuo 
Commodore”. 

sci: cm 175 / 195 - rack: cm 90x90x 70 


Commodore 













L’ UTILE 

QUALSIASI COMPUTER 


Enciclopedia delle routine 

Seconda puntata 


Come realizzare l’enciclopedia di routine 
ed utilizzarla nei propri listati. 



i lettori che hanno acquistato per la 
prima volta questo mimerò di Commo- 
dore Computer Club, illustriamo, in bre- 
ve, i vantaggi che derivano dalla raccolta 
proposta: 

- ogni routine appare, per intero, sullo 
schermo del computer e consente, pro- 
prio per questo motivo, di essere esami- 
nata comodamente. 

- ogni routine è numerata secondo uno 
standard che ha la particolarità di esser 
ricordato facilmente: 


RIGHE CONTENUTO 


XXY00 

Prima riga del 


sottoprogramma 

XXY89 

Ultima riga utile 


del sottoprogramma 

XXY90 

REM Prima riga 


di spiegazioni 

XXY99 

REM Nome 


della subroutine 


in cui XX sono due valori variabili da 10 a 
63; Y è un carattere numerico compreso 
tra Oc 9. 

Qualsiasi subroutine, in altre parole, 
inizia con un numero, di cinque caratte- 
ri, che termina sempre con “00". Lastes- 
sa subroutine, d'altra parte, ha Fultìma 
riga numerata con "99", 

Digitando, ad esempio: 

LIST 10800-10899 

si avrà la certezza di veder apparire sullo 
schermo, per intero, la routine il cui no- 
me si trova nella riga 10899. 

Prima di accedere alla routine è neces- 
sario assegnare, alle variabili indicate da 
riga XXY89 a XXY98, panico tri valori 


per il suo corretto funzionamento. Al 
"‘ritorno' 1 una o più variabili conterranno 
il risultato del l'elaborazione. 

In questo modo, per esser più chiari, t 
possibile simulare alcuni comandi di ver- 
sioni BASIC avanzate oppure, addirittu- 
ra, creare nuove e inedite istruzioni. 

Ad esempio, il comando: 

SOUND 1,800,500 

che, nel C-ló, riproduce un suono di to- 
nalità 800 tramite La voce 1 per la durata 
500, potrebbe venir riprodotta in un’ipo- 
tetica subroutine per il Commodre 64 
con: 

X 1 = 1 :X2=800 :X3=500:GOSUB12400 


nell’ipotesi, ovviamente, che la routine 
in oggetto sia allocata da riga 12400 a 
12499. 

La collaborazione dei lettori è gradita, 
purché si provveda ad inviare almeno tre 
sottoprogrammi per volta, su nastro op- 
pure su output di stampante. I listati di 
routine che non rispettano lo standard 
adottato non potranno esser presi in 
considerazione. 

Tutti i lavori pubblicati verranno com- 
pensati con prodotti della Systems edito- 
riale (cassette di programmi, libri, abbo- 
namenti, copie arretrate eccetera). 

Alessandro de Simune 
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L’ UTILE 


10400 INCOLONNAMENTO VIRGOLA 
DECIMALE 

Capita spesso di voler visualizzare su schermo un certo 
numero di valori che possono, oppure no, essere interi o 
decimali. Questa subroutine serve per incolonnarti nella giu- 
sta maniera. 

Prima di accèdere ai sottoprogramma è necessario comu- 
nicare, oltre al valore desiderato (XI), anche ia distanza dal 
bordo sinistro del video della prima cifra significativa (X2), che 
deve valere almeno 1 1 in modo da non perdere i primi carat- 
teri nel caso di valori interi molto elevati. 

Il semplice demo delie righe 100-150 genera, a gruppi di 
10, valori Random che saranno incolonnati a distanzavia via 
crescente. Al ritorno dalla subroutine è possibile recuperare 
anche la parte decimale (X4$) e quella intera (X3$). 

N .B. Nella riga t042Q è necessario digitare i! comando Return 
ricorrendo all’abbreviazione (reT). 

100 REM ESEi'rpIO D’USO 
110 REM INCOLON. VIRGOLA 
115 : 

120 X2 = 10 

130 FOR 1 = 1 TO 1 0 s X 1 =RND ( 0 ) *RND < 0 
>*1E9 

140 GOSUB 10400 :PR1NTX1$CHR*< 13 >X 
3*DHR*( 146);X4*!NEXTsPRINT:X2 
=X2+2 ■ GOTO 130 
150 : 

3399 END 

10400 X1*=STR*<X1 >:X3=LEN(X1S>: IF M 
2< 1 1 THEN X2=l 1 
10403 1F X2 > 128 THEN X£=128 
10405 X3*=" " :X4$= , "' :X9*=* * :FOR X0=1 
TO X2 s X9$=X9$+CHR$< 32 ) ! IsEXT 
10410 FOR X0=1 TQ X3:X2*=MI0$<X1*,X 
0 , 1 ) 

10423 1F X2$= * . * THEN X2*=R IGHT*(X9 
* ,X2~X0 > ! X 1$=X£$+X 1 $ìX4$=R IGH 
TS< X 1 * , X3 -X0 > : RETURN 
10430 X3*=X3$+X2$sNEXT 
10440 X1*=LEFT*<X3$,X2-X3-1 )+Xl$:RE 
TURN 

10489 REM VARIABILI: X0,X1 ,X2,X3,X 
3,X1*,X2*,X3*,X4*,X9$ 

10490 REM INPUT: X1$C VALORE) X2COIS 
TAN2A DAL BORDO SINISTRO) 

10491 REM OUTPUT: X 1 EVALORE -STR IN 
GA NUhERO 

10492 REM X3$=PARTE INTERA 

10493 REM X4*=PARTE DECIMALE 
10439 REM NOME: INCOLONNAMENTO VIR 

GOLA 


10500 INPUT CONTROLLATO 

In molti programmi interattivi è necessario prevenire errori di 
battitura da parte deir utilizzatore. La routine proposta, a se- 
conda se la variabile XI contenga il valore "G’\ ’T h oppure 
li 2’\ effettua un controllo sui tasti digitati in seguito. 

Caso 0: accetta solo caratteri alfabetici (maiuscoli e minu- 
scoli) e spazio (barra spaziatrice). 

Caso 1; caratteri alfabetici (maiu/mìn.) t spazio, caratteri 
numerici, segni ( +-), punto decimale. 

Caso 2: sdo caratteri numerici, segni (+*), punto decimale, 
In questo caso viene effettuato un ulteriore controllo che non 
accetta il punto decimale nel caso sìa stato già battuto, nè 
accetta un segno se questo non è il primo carattere digitato. 
In tutti e tre t casi è possibile cancellare il carattere digitato 
per ultimo premendo l'apposito tasto Irvst/del 
N ,B. I lettori che abbiano difficoltà ad interpretare i caratteri di 
riga 10505 tengano conto che T dopo le virgolette (PR1NT ( ), è 
necessario digitare i tasti che seguono: Reverse, spazio, 
cursore a sinistra, Off Reverse T spazio, Cursore a sinistra! 
chiusura virgolette, punto e virgola. Tale sequenza di caratteri 
simula il lampeggio dei cursore. 


100 REM ESEMPIO D’USO 
! 10 REM INPUT CONTROLLATO 
115 ; 

130 I INPUT "TIPO DI 
1 : GOSUB 10500 

130 PR INTsPR INT" IRVS 1 B X1$' ERVOFF 3 
•LENCXIS) SBOTO 100 
200 : 

9989 END 

10500 X 1$- u d #X2=0 

10505 GET X0*UF X0$="" THEN FRI NT" 
[RVS3 CLEFT1 ERVOFF ] ELEFT3";* 
GOTO 10505 

10510 X0=ASCCX0$>: IF X0=13 THEN RET 
URN 

10515 1F XI AND X0>47 AND X@<58 THE 
N 10580 

10517 IF XI =2 AND X0=4B AMJ XH=0 TH 
EH X2 = 1 s GOTO 10580 

10518 1F X I =2 AND <X0^43 OR X0=45) 
AND LENCX 1*0=0 THEN 10580 

10519 IF XI =1 AND <X0=46 OR X0=43 0 
R X0=45 > THEN 10580 

10520 IF X0=£0 AND LENCX1S) THEN 10 
580 

10522 IF XI =2 THEN 10505 

10525 IF X8=32 OR X0>64 AND X0C91 T 
HEN 10580 

10530 IF X0 > 1 92 AND X@<218 THEN 105 
30 
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L’UTILE 


10570 GOTO 10505 

10580 X1*=X1*+XB*: IF X0 =£0 AND LEN< 
XI*) >1 THEN X1*=LEFT*(X1*,L£N 
<Xt*)-2> 

10581 PRINTX0*; SGOTO 10505 

10595 REM XI =1 ALFANUhÉR . X1=0 SOL 
0 ALFAB. XI =2 SOLO NUM. X1*=S 
TR1NGA RITORNO 

10599 REM INPUT CONTROLLATO 


10600 REVERSE SCHERMO 

Questa routine è piuttosto interessante perché consente di 
utilizzare un breve programma in linguaggio macchina (L.M) 
senza ricorrere alla consueta tecnica di READ... DATA... 
POKE... 

I valori da pokare, infatti, sono contenuti nella stringa X0$ 
delle prime righe sotto forma di gruppi di tre valori, ì primi 
codici (in decimale) sono, ad esempio: 173, 106, 3, 133, 2 
eccetera. Un'apposita routine si incarica di "estrarre” i valori 
dalla strìnga X0$, di valutarli e di pokarli nelle locazioni nor- 
malmente utilizzate dal registratele a cassette. La riga 10660 
serve so'o per controllare l’esatta trascrizione del listato da 
parte del lettore e deve essere cancellata dopo il controllo del 
suo corretto funzionamento. 

La routine si occupa di cambiare, da normale in Reverse, 
tutti i caratteri presenti sullo schermo del Commodore 64, ad 
eccezione degli spazi bianchi, per un numero di volte specifi- 
cato da XI e con intervallo specificato da X2. Premendo un 
tasto durante ri funzionamento della routine, si ottiene un 
ritorno al programma principale e la schermata ritorna come 
era prima della chiamata. 

100 REM ESEMPIO D'USO 
110 REM L.M. INVERSIQhC 
115 REM SCHERMO (SOLO C-64) 

180 : 

200 INPUT "N. VOLTE ";X1 
210 IhPUT 'RITARDO *JX2 
220 GOSUB 10600» GOTO 200 
225 f 

10800 XI = INT CX1 *2) 5 IF XI <2 THEN Xl = 
0 

10640 X?=0:X8=0:X0*=' 17310800313300 
21731 07003 1 33003 1 62000 1 60000 1 
77002201032240* 

1 0653 X0*=X0*+ ”004073 1 28 1 45002200 1 9 
2250208241024165002* 

10656 X0*=X0*+" 10525013300216500310 
5000 1 330032322240042082210960 
00004 " 


10658 FOR X0=1 TO LENCX0*) STEP 3iX 
9 E VAL <MID*(X0*,X0 ,3) ) i POKE 82 
6+X8,X9:X8=X8+l 

10659 X7=X7+X9 : NEXT 

10660. IF X705332 THEN PRI NT 'ERRORE 
” :ENO 

10662 REM CANCELLARE RIGA PRECEOEN 
TE DOPO AVER VERIFICATO TRASC 
RIZIQNE LISTATO 

1 0664 REM CANCELLARE ANCHE X7=0 E 
X7=X7 +X9 IN RIGHE PRECEDENTI 

10667 IF XI =0 THEN SYS826 : RETURN 

10670 FOR X0= 1 TO X 1 J SYS326 ! FOR X9 = 
1 TO X2 

10675 GET X0*: IF X0*="“ THEN 10685 

10680 X0=X1 !X9*X2s IF X0/2*INT(X0/H > 
THEN SYS826 

10685 NEXTX3,X0sRETURN 

10630 REM X0,X1 ,X2,X?,X8,X9,X0* 

10692 REM INPUT XKN. VOLTE PARI), 
X2 CRI TARDO REVERSE). SE XI <1 T 
HEN 1 VOLTA SOLA 

10689 REM RE VERSE CARATTERI SCHERM 
0 LM 


10700 IMPULSI SONORI 

Questa routine, valida solo per it Commodore 64, genera un 
certo numero (X2) dì impulsi sonori separati da un intervaliodi 
tempo proporzionale ad XI, Serve per richiamare l’attenzio- 
ne dell'utilizzatore che, premendo un tasto, provoca il ritorno 
al programma principale. 

Se il valore di X2 è compreso tra 1 e 100, si avrà un ritorno 
al programma anche senza la pressione di un tasto. 


100 REM ESEhPIO D'USO 
110 REM IMPULSI SONORI IN 
120 REM ATTESA PRESSIONE TASTI 
130 : 

200 IhFUT 'DURATA IMPULS0'JX1 
210 INPUT “N.V0LT£";X2 
220 GOSUB 10700: GOTO £00 
230 : 

10700 X4=0 : IF XI >1000 THEN XI =1000 
10702 IF X2 > 1 00 OR XP<0 THEN 10710 
10704 FOR X3=f TO X2 : GOSUB 10750 
10706 GET X0*: IF X0*= * " THEN NEXT 
10708 RETURN 
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DAI MEMORIA AL TUO VIC-20 



CON QUESTA CARTRIDGE POTRAI 
ESPANDERE LA MEMORIA DEL TUO 
VIC-20 COME VORRAI: 3K-8K-16K 


Progettata e prodotta in Inghilterra dalla Stonechip Electronics 
questa cartuccia, tramite il semplice posizionamento di micro- 
switch, ti consente un ampliamento differenziato della RAM: 3K 
o 8K o 16Kj secondo quanto richiede il programma che devi far 
girare. I contatti placcati in oro, assicurano una lunga dura- 
ta a questa cartridge che darà nuova vita al tuo VIC-20. 

Un prezzo introvabile e garanzia per 6 mesi. 


PER IL TUO COMMODORE-16 
UN’ESPANSIONE RAM DI 16K 


La consueta qualità e affidabilità del- 
ia Stonechip Electronics per questa 
cartridge, che potenzia il tuo C - 16. 
Garanzia integrale di sei mesi. 


INTERFACCIA PER REGISTRATORE 
PER VIC-20 E PER CBM-64 




PROGRAMMERS AID CARTRIDGE 



Questa cartuccia aggiunge ben 19 co- 
mandi al tuo VIC-20: renumber, auto- 
line, edit, sound, cursoq block, delete 
.... e altri. E' un prodotto della Stona- 
chip Electronics con 6 mesi di garan- 
zia integrale. 


MODULO DI ESPANSIONE PER VIC-20 



< 

Questo modulo di espansione differenziata, prodotto dalla Stone- 
chìp Electronics, ti consente di utilizzare contemporaneamen- 
te (posizionando i microswitch di cui è dotato) da 2 a 4 cart- 
ridges, Aggiunge inoltre alla ROM 4K. Inserendo con l'espan- 
sione Vixen 1 6K Ram una espansione standard di SK si otten- 
gono ben 24K RAM. E 1 anche dotato di una presa per collega- 
re un ulteriore modulo di espansione. Garanzia 6 mesi. 

SENSAZIONALE PREZZO PER 
CARTRIDGES COMMODORE VIC-20 

Scegli i videogiochi che preferisci a sole 7.350 Lire H- iva 
1901 Avenger - 1907 Jupiter lander - 1910 Rat race - 1912 
Mole attack - 1913 Ride on Fort Knox - 1914 Adventureiand 
1915 Pirate cove - 1918 Voodoo casti© - 1919 Sargort chess 
Il - 1922 Gosmich cruncher - 1923 Gorf - 1924 Omega race 


La Stonechip Electronics è stata la prima ditta in Europa a rea- 
lizzare l 'interfaccia per utilizzare qualsiasi registratore con i com- 
puter Commodore. Continuamente aggiornata é di certo una del- 
le piu affidabili presenti sul mercato Garanzia di 6 mesi. 

12 CASSETTE 020 A LIRE 12.600 + IVA 

Mastro professionale AGFA PE619, box tra- 
sparente in Kofi 1 assemblalo con 5 viti, scor- 
rimento su perni in acciaio lubrificati. 



rii» :V: hfrT»f r-ìir tfcM**: t 1 ■ . :!•* i 
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50 FANTASTICI VIDEOGIOCHI 50 
PER VIC-20 O CBM-64 

Registrati su nastro, della software-house inglese Cascade 
Games, all'Inverosimile prezzo di sole Lire 25.000 + IVA !! 


Spedire il presente MODULO D'ORDlNE f o fotocopia, in una 
busta chiusa, unendo L. 2.600 in francobolli per spese postali. 

UN OMAGGIO A CHI ORDINA ALMENO DUE ARTICOLI 


Spetue APCO s.r.L - Cas. Post 239-10015 IVREA fTo) 

desidero ricevere quanto da me contrassegnato con X, Pagherò 
direttamente al postino gli importi qui elencati, che sono com- 
prensivi di IVA e di spese dr imballo e contrassegno. 


□ Vixen Switchabie 16K RAM 

4. 

□ Programmar Aid Cartridge 

□ Modulo di espansione per VIC-20 
[ ] Cartridges VIC-20 cod. . ■ . - 

□ 12 computer cassette G-2Q 

□ Interfaccia per registratore 
C Espansione di memoria per Commodore-1 6 

□ 50 videogiochi per □ VIC-20 [ CBM-64 

□ Non acquisto nulla ma desidero ricevere \ Vostri 


a 

a 

a 

cadauna a 
a 
a 
a 
a 


L. 87.000 
L. 48.000 
L 75.000 
L. 9,000 
L. 16.000 
L. 31.000 
L. 89.000 
L, 30X100 
cataloghi 


Mone e Oc-gnome — 

Via - — 

Città _ _ CAF. 

data „ firma .. 


L UTILE 


10710 

10720 

10750 

10760 

10770 

10730 

10792 

107B4 

10796 

+ 

10739 


GET X0$:IF X0$-*' J THEN GGSUB 

10750: GOTO 10710 

RETURN 

POKE 54296,151 POKE 54277, 9lPO 
KE 54278,12 

POKE 54272, 49: POKE 54273,28 :R 
ORE 54278,17 

POR X0-1 TO X 1 s NEXT1POKE 5427 
6,0: RETURN 

REM X0,X1 ,X2,X3,X0$ 

REM XK1000 DURATA IMPULSO 
REM X2= N* IMPULSI (0-100) 

REM X2<0 ATTESA PRESSIONE TA 
STO 

REM IMPULSI SONORI IN ATTESA 


10800 CONTROLLO DELLA DATA 

Questo interessante e breve sottoprogramma consente di 
effettuare diversi contralti a seconda del contenuto di alcune 
variabili: 

X4=(X Verifica se un certo giorno "esiste" oppure no. Ri- 
spondendo, ad esempio, al breve programma dimostrativo di 
righe 1 00-290: 

GIORNO? 12 
MESE? 22 
ANNO? 85 

la variabile X0$ conterrà if messaggio "ERRI" che indicherà 
un errore di INPUT in unadetletre variabili (XI, X2 r X3). Non 
esiste, infatti, il mese N,22 r 

Il controllo viene effettuato, oHre che sul mese, sul numero 
massimo di giorni per ciascun mese e sulla esistenza, o 
meno, del 29 febbraio degli anni bisestili. 

L’anno può esser digitato in molti modi. Esempio: il 1985 
può esser Indicato come 1985* 985 oppure, semplicemente, 
85. 

Se la data “esiste", al ritorno della subroirtf ne la variabile X3$ 
sarà rulla. Se, invece, contiene i caratteri "ERR2 M indicherà 
che alla vari bile XT$ non è associato un corretto nome delia 
settimana (LUN, MAR, eccetera). 

Se, prima di utilizzare la subroutine, ad X4 viene assegnato 
un valore maggiore di zero, e se X1$ contiene un nome lecito 
di giorno, viene effettuata una somma allo scopo di sapere il 
giorno che capiterà dopo "X4" giorni. 

Esempio: 

GIORNO? 14 
MESE? 9 
ANNO? 1985 

N. GIORNI DA SOMMARE? 67 
NOME GIORNO? SAB 

La risposta che si ottiene é; 

2011 1985 MER 


Ciò significa che se il giorno 14/9/85 è un sabato, dopo 67 
giorni fa data esatta sarà: mercoledì 20/11/85 

Eliminando dalla riga 10826 lo statement REM sarà possi- 
bile visualizzare tutti i giorni calcolati durante ia procedura. 

100 REM ESEMPIO D'USO 

110 REM CONTROLLO DELLA 

111 REM DATA < G/M/A/NGME ) 

115 : 

200 INPUT '"Gl ORNO"; XI 

210 INPUT "M£SE*;X2 

220 INPUT "ANNO " i X3 

£30 INPUT "N. GIORNI DA SOIWlRE" TX 
4 

240 INPUT "NOIVE GIORNO (LUN MAR.. 

, > ia JXl$ 

250 GOSUB 10800:PR1NTX0$;X3$:RRIN 

txi;x2ix3;xi$:goto 200 

£90 ì 
9993 END 

10800 X2$= "LUNMARMERG I OVENSABDOM" 

10801 GOSUB 1085 1 • GOSUB 10830: IF X0 
SFERRI" OR X3$=”ERR2 U THEN R 
ETURN 

10803 IF X4< 1 THEN RETURN 

10805 FOR X5-0 TO X4~ 1 : X 1 1 + 1 : GOSU 
B 10830 

10815 IF X0$- "ERR 1 " THEN X 1 “ 1 : X2“X2 
+ 1 : TF X2M2 THEN X2*i:X3=X3+l 

10820 XG=X6+3!IF KB >2 1 THEN X6= 1 

10826 X1*=MID*(X£*,X6,3> 

10827 REM PR1NTXUX2;X3;XÌ$ 

10828 NEXT ! XO$= " " s RETURN 

10830 X0$= W ":X0=X1*X£*<X2< 13>*<X1<3 
1 + UX£ + <X2>7) ) Ah® 1 > + <X£™2 ) * 
C2+CCX3 AND 3>*0>)> 

10840 IF X0 “0 THEN X0$= ], ERR 1 11 

10850 RETURN 

10851 X3S- "ERRE ! FOR X5*l TO 21 STE 
P 31 IF MID$<X£$,X5,3)=XÌ* THE 
N XG-X5 s X5-22 " X3$- h 

10855 NEXT 3 RETURN 

10890 REM X0, 1 / £ J -3^4,5,6,X0^ r J$,2$ 
,3* 

10392 REM Xl,Xa,X3 IhFUT G10,MES,A 
NNO 

10894 REM X4,X1* INPUT N. GIORNI, NO 
re G. 

10898 REM GUTPUTSXl ,2,3,X1*,0$,3$< 
ERR. ) 

10893 REM CONTROLLO DATA E 30M4A G 
IORNI 
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LUTILE 


Un suggerimento 

Un lettore ha consigliato di utilizzare le ultime righe del 
BASIC come indice generale delle routine costituenti l'intera 
enciclopedia. L'idea è decisamente interessante e la utilizzia- 
mo per indicare non solo le routine di questo numero ma 
anche quelle apparse sul numero precedente di Commodore 
Computer Club. 

63989 REM 10800 CONTROLLO DATA 

63990 REM 10700 IMPULSI SONORI 


63991 REM 10600 RE VERSE SCHERMO 

63992 REM 10500 INPUT CONTROLLATO 

63993 REM 10400 INCOLONNAMENE© VIRGOLA 

63995 REM 50000 LEGGE BLOCKS LIBERI (DISCO) 

63996 REM 10300 INPUT CON CONTROLLO DI DEFAULT 

63997 REM 10200 ESTRAZIONE PAROLA DA FRASE 

63998 REM 10100 CAMBIA COLORE BORDO & FONDO 

63999 REM 1OQ0Q CORNICE POLICROMA 


Alessandro de Sìmone 



I1N-7 

II Commodore 64 è ora venduto in migliaia di 
esemplari ed i suoi utilizza toh iniziano a ri- 
chieder programmi. Commodore Computer 
Club si presenta in edicola , col N,7, propo- 
nendo un programma universale di Assem- 
bler, listati per l’astro nascente C-64, una ma- 
schera - memo da ritagliare ed applicare sul 
proprio computer {Vie 20 oppure C-(A) t h 
prima puntata sul!’ Asse nibbi. 

Per La prima volta in Italia una rivista di 
informatica è costretta alla ristampa dopo una 
settimana di presenza in edicola. La notizia, 
ovviamente, si diffonde tra le case editrici ed 
inizia l'invasione di riviste e rivistine dedicate 
ai prodotti Commodore. Gli scettici dell'anno 
precedente hanno cambiato bandiera, se- 
guendo il vento. 


I1N.10 


Il numero di pagine passa da 52 a 68 mentre il 
prezzo di copertina (2500 lire) rimane invaria- 
to e rimarrà tale fino al N. 15 (Nov.84). 

Tra gli argomenti di questo fascicolo; ge- 
stione dei puntatori vitali per i sistemi Com- 
modore, utility di programmazione, video- 
giochi, un,., pesce d’aprile e, soprattutto, un 
programma per disegnare in alta risoluzione 
sul Commodore 64: "'E 3 solo la prima realise 
di un programma più impegnativo che sto 
portando avanti” afferma Danilo Toma, che 
promette di pubblicare, in seguito, qualcosa 
di unico nel suo genere. 




un. 14 

E' il numero più richiesto dai nuovi lettori. Il 
motivo è semplice: sono pubblicate le nuove 
routine grafiche che consentono, aggiunden- 
go nuovi comandi Basic, di disegnare secondo 
le regole della prospettiva. Nessun program- 
ma, su piccoli computer, è in grado di svilup- 
pare una grafica di tale livello. 

Il numero di pagine passa da 68 a 84. II 
prezzo di 2500 lire, decisamente modesto, po- 
trà restare invariato per un solo numero 

ancora. 


Commodore Computer Club - 73 






SINCLAIR CON 


COMMODORE 









Tre riviste in una: tutto quello che conoscete già con qualcosa 
in piu'. Le macchine: nuovi prodotti, accessori, prezzi, confronti, 
Il software: tanto software, in piu' versioni per piu' 
computer. Le idee: tanto spazio per le vostre idee (e per le nostre). 
Da gennaio. In edicola. 



Il mercato si evolve. 

p 

Anche noi. 



[IN. 20 


Per venire incontro ai principianti vengono 
pubblicati, oltre a listati di un certo “livello" 1 , 
soprattutto artìcoli e mini programmi di gran- 
de aiuto per chi ha appena acquistato un com- 



puter e desidera utilizzarlo realmente. L'arti- 
colo su come realizzare videogiochi, Fin tra- 
duzione alla gestione degli archivi su disco, la 
scelta del modulo opportuno nei progetti di 
ruote dentate, non rappresentano che alcuni 
degli articoli didattici che troveranno ampio 
consenso tra t nostri lettori. 



dall'INGHILTERRA i fantastici computer games ELETTRIZZANTI 



CBM 64 


FORMULA t 

Cltì - SPEGTftUM 


ACTION BIKE R 
CBM £4 - SFECTRUM 

aTafii soav 130 


BtoK THIALS 

CBM 64 


MASTERTRONIC 




avventure piene di suspence e 
frenetiche animazioni. 

QUALITÀ- PREZZÒ solo £7900 è ia grande proposta 


MASTERTRONIC per conquistare tanti amici 


Maslvtt ronic s.tt.s. - V.fti Agtiggìail, f z a - 21 WO v&fam * - ' Q332 238Q9& 
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VOTO 


The empire 

Tre rovinose guerre hanno ridot- 
to V impero di Àrtaivius alla rovi- 
na. Una piccola colonia dì ribelli 
si è impadronita di una vecchia 
astronave e ha deciso di rendere 
ancora più disastrosa la cruda 
realtà di Artavius. I ribelli hanno 
piazzato cinque super mine, e il 
tuo compito è quello di disatti- 
varle, A rendervi il lavoro ancora 
più complicato sarà la vostra si- 
nergia vitale che diminuisce a vi- 
si a d’occhio. Per disinnescare 
queste mine dovrete entrarvi den- 
tro. Arrivare fino al nucleo. Di- 
sattivarlo, ed infine uscire. Tutte 
queste operazioni dovranno esse- 
re eseguite senza farvi scoprire 
dai robot sentinella che si trova- 
no in tutti i corridoi alFintcrno 
delle mine. 

Questa azione dovrete ripeter- 
la 4 volte questo perchè solo 
quando saranno rese inattive le 
mine si potrà avere accesso alla 
quinta. Quesfultima infatti è 
robiettivo finale della partita. 

Quando viaggiate nello spazio 
con la vostra astronave che si 


chiama AIR WOLF 2000 late at- 
tenzione a non schiantarvi contro 
le meteore che vi potranno di- 
struggere. 

Tasti funzione; 

M = destra 
N » sinistra 

V = selezione missione 
1 = fuoco 
Q - alto 
A = basso 

Consigli: 

1 ) Tenetevi al centro deilo scher- 
mo. 

2) Entrando in una mina è neces- 
sario usare lo schermo principale 
per meglio riuscire allo scopo. 

3) Evitare il contatto con i robot 
ainnterno dei corridoi delle mine 
altrimenti si perde la preziosa e- 
nergia in maniera veloce. 


Se non avete mai potuto chiedere 
fino ad ora a un computer di po- 
tervi trasportare in una macchina 
per farvi provare il brivido dei 
300 K/h, tenuta di strada ecce- 
zionale e con dei buonissimi fre- 
ni, questo è il vostro gioco. Siete 
voi l’abile pilota di una delle Fer- 
rari e dovrete qualificarvi nel mi- 
glior posto. Allora via, ingranate 
la marcia, curvate nel momento 
giusto e superate le auto degli av- 
versari. 

Ogni giro il punteggio vi au- 
menterà. 

Gareggiando contro voi stessi 
vi potrete esercitare per ottenere 
un punteggio sempre più alto. Se 
giocate invece, contro i vostri 
amici, allora, il punteggio dovrà 
essere supcriore a quello dei vo- 
stri amici. 




IDEA 7 

GIOCABILITA' 7 


SUONO 8 

ANIMAZIONE 8 

VOTO 8 


Formula 1 simulator 


Tasti comando: 

À - accelerazione 
Z - decelerazione 

3 = sinistra 

4 = destra 
T s= marce 


IDEA Q 


GIOCABILITA.' 

. / , . i- 1 -' ■" ' r -W 4*5 

SUONO 


ANIMAZ 


' V- / 'e- ’ 7 

■ ■ . <• . 


WS»* 


. - . ■ • 

IIMU t 


7 

7 


IR»? sassa» 




giochiamo con. 

a cura dì Armon 
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fatto che sarete voi a comunicare ai pro- 
gramma la descrizioni; delle spese e delle 
entrate che volete seguire: il programma 
si limiterà (si fa per dire) a fare bene le 
sue somme. 

In realtà it programma fa ben altro, in 
quanto vi fornirà, oltre ai totali mensili 
ed annua ti dei vostri conti, anche dati 
statistici in percentuale ed in assoluto 
delle vostre spese ed entrate, 

E 1 prevista la possibilità di confrontare 
una particolare voce di spesa con le stes- 
se dei mesi precedenti ed in tutto l’anno 
in corso, nonché la possibilità di ottenere 
tutti questi dati anche sotto forma di 
grafici. 

TI programma funziona, oltre che con 
il registra tore a cassette, anche con V uni- 
tà a disco 1541 ed ì possessori di una 
stampante potranno ottenere su caria i 
grafici, i dati statistici ed i vari totali e 
saldi che il programma vi mette a disposi- 
zione I a stampante ed il disco non sono 
tullav vi rettamente necessari per il re- 
gola u ui/ionamento del programma. 

Quanto alla necessità di avere una ge- 
stione “meccanizzata 1 ’ delle proprie 
uscite ed entrate, molti sono i punti a 
favore* 

Per prima cosa bisogna riconoscere 
che, a meno di avere entrate ed uscite 
cosi esigue da riuscire a gestirsele a me- 
moria, (cosa che non vi auguro di certo) 
un movimento M monetario* ’ medio ri- 
chiede una certa cura per essere seguito. 

Si tratta il più delle volte di riuscire a 
sapere in anticipo se determinate spese 
importanti potranno essere sostenute o 
se dovremo rinviare a tempi migliori i 
nostri desideri. 

Sia che si tratti di una macchina o di 
una casa per una famiglia, sia che si tram 
di un motorino, di un disk drive 1541 o 
dei risparmi per le vacanze di un giovane 
studente, la esigenza è sicuramente quel- 
la di sapere cosa si risparmia mediamente 
ogni mese e di sapere eventualmente 
quali possano essere le spese su cui inter- 
venire per risparmiare di più 

lutto cioè notevolmente semplice se 
usate un elaboratore ed un programma 
latto espressamente per la valutazione 
dei dati di un bilancio domestico, 

Come seconda considerazione si può 
dire che, poiché abbiamo un Commodo- 
re 64 in casa, tanto vale usarlo, non solo 
per i videogiocln e per qualche rubrica 
telefonica (argomenti certo di tutto ri- 
spetto) ma anche per un utilizzo diverso 
che indirettamente potrà dare anche 
sod d is fazi on i eco i iom i c he . 

Sul numero speciale di novembre tro- 
verete una guida completa all'uso del 
programma. 


— 

SPAZIO 

COMMODORE CLUB 


(1 bilancio di casa 

Più che uno speciale, il prodotto reperi- 
bile in edicola, è un validissimo strumen- 
to utile per le esigenze di famiglia. 

Realizzato da un professionista della 
programmazione per h Svsteuis edito- 
riale', viene sottoposto airmtenzione dei 
nostri lettori 

Finalmente una buona idea per comin- 


ciare ad utilizzare il nostro Commodore 
64 anche per mettere un pò di ordine nei 
conti domestici 

Il programma che vi presentiamo nel 
numero speciale di Commodore Compu- 
ter Club va altrettanto bene sia per gesti- 
re situazioni complesse come il bilancio 
di tutta una famigli a T sia per situazioni 
meno impegnative ma non per questo 
semplici coinè il bilancio di un giovane. 

Questa elasticità d'uso è garantita dal 
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Abbiamo notato che chi ha appena ac- 
quistato un computer Commodore si tro- 
va di fronte ad alcuni dubbi a pparen te- 
mente irrisolvibili, Per venire incontro ai 
neo -possesso ri, riponiamo qui di seguito 
alcuni consigli indubbiamente preziosi: 

1 - Se utilizzate il registratore è buona 
norma, subito dopo il salvataggio (-re- 
gistratore) dei programmi clic digitate da 
riviste, effettuare l'operazione di verifi- 
ca. Questa si compie riavvolgendo il na- 


Alcuni utili consigli e trucchi 
per i lettori di Commodore 
Computer Club. 


I listati della 
Systems Editoriale 


stro e digitando il comando VERI! Y se- 


guito dalla pressione del tasto Rctum 

fvedi libretto di istruzioni allegato al vantaggio, è probabile che il programma però un’operazione che può riuscire a 
computer). Se alla fine dell operazione sia stato registrato male o che la testina persone piuttosto esperte e che possono 


compare il messaggio VERIFY ER- del registratore sia disallineata. Con disporre dei vari computer: non esiste, 

R OR, è necessario ripetere l'intera prò- molta cautela, in quest’ultimo caso, rao- infatti, una regola unica e generale di 

eedura (registrazione + verifica). tare con apposito cacciavite la vite di re- adattamento di programmi ma, volta per 


2 - Se il caricamento dei programmi {da 
nastro o disco) avviene con difficoltà 


golazione di non più di un quarto di giro 
in verso orario oppure antiorario lino a 
che il caricamento non riesce. 


volta, le regole da applicare cambiano di 
continuo e necessitano in ogni caso di 
una verifica su! calcolatore. 


(LQAD1NG ERROR), è probabile che 
ciò sia causato dalla vicinanza degli appa- 
recchi al televisore. Allontanandoli tra 
loro si impedisce ai campi magnetici di 
alcuni TV di influire negativamente sul 
trasferimento dei dati 

3 - Se l'allontanamento del registratore 
dal Tappa re echio TV non produce alcun 


4 - I programmi che è possibile trascrive- 
re sul vostro calcolatore sono ben specifi- 
cati. I listati “ universali" riportano, su 
Commodore Computer Club, la dicitura 
"QUALSIASI COMPUTER". B' possi- 
bile, con le dovute eccezioni, adattare 
listati specifici per il Commodore 64 a] 
Vie 20, al 016 o viceversa. Questa è 


5 - Un'elevata percentuale dei nostri let- 
tori incontri* difficoltà nel digitare i pro- 
grammi da noi pubblicati. Riportiamo, 
pertanto, alcune informazioni utili per la 
digitazione dei listati: i caratteri "specia- 
li” bianchi su fondo nero (se mi -grafici in 
“reverse") che rappresentano precisi co- 
mandi peri computer Commodore, sono 
riportati nel listato di esempio nella pagi- 
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BASIC 


na accanto cosà come appaiono digitan- 
doli sii video o su slampante, mentre a 
destra come li rappresentiamo nei nostri 
listati. 

La riga 360, ad esempio* deve così es- 
ser interpretata: 

Dopo aver battuto il carattere di virgo- 
lette (") che si ottiene premendo il tasto 
SHIFT insieme con il tasto 2, è necessa- 


rio battere il carattere CRSR DOWN (il 
tasto, cioè, che normalmente spostereb- 
be il cursore nella cella video 
sottostante). 

Analogamente, nella riga 180 del lista- 
to “tradotto' 1 (di destra), il termine [NE- 
RO] sta a significare che occorre utilizza- 
re il carattere speciale del colore nero 


(tasto CTRL insieme con il tasto 1, vedi 
listato). 

Per ricordare in che modo vengono 
normalmente visualizzati i caratteri spe- 
ciali, nella seconda parte di ogni riga (do- 
po i REM) sono riportati i tasti che è 
necessario premere (Sur ottenere il 
carattere-comando "speciale". 

La Rtfdrt/iune 


100 REM I CARATTERI SPECI REI 
110 REM DEI COMPUTER COMMODORE 
120 REM COME APPAIONO NORMALMENTE 
130 REM SU VIDEO O SU CARTA, 

140 REM CCTRL = TASTO CONTROL ) 

150 REMI CCMDR - TASTO COMMODORE) 
160 REM < CRSR = TASTI CURSORE) 


170 

p 

c 





180 

PRINT**- 

REM 

CTRL + 1 

NERO 

1S0 

PR I NT * ai* 

R£M 

n 

+ 2 

BIANCO 

200 

PRINT " W 

REM 

p 

+ 3 

ROSSO 

250 

print* il" 

REM 

H 

+4 

AZZURRO 

280 

PRTNT i r 

REM 

Jt 

+ 5 

PORPORA 

220 

PR INT" ti" 

REM 

1» 

40 

VERDE 

240 

PR INT"a h 

REM 

■ 

+ 7 

BLU 

250 

PRIMT^a' 

REM 

la 

48 

GIALLO 

260 

PR T NT * .3“ 

REM 

m 

49 

REVERSE QN 

270 

PRINT"** 

REM 

m 

+ 0 

RE VERSE OFF 

280 

PR I NT " L3 W 

REM 

CMDR + I 

ARANCIO 

290 

PRINT"*" 

REM 

» 

+ 2 

MARRONE 

300 

PR INT"*" 

REM 

ii 

43 

ROSSO CHIARO 

310 

PR I NT "gl" 

REM 

H 

+4 

GRIGIO 1 

320 

PR INT"^T 

REM 

p 

43 

GRIGIO 2 

330 

PRINT "ir 

REM 

il 

+ 8 

VERDE CHIARO 

340 

PR INT "LT 

REM 

» 

47 

BLU CHIARO 

350 

PR INT "B" 

REM 

IT 

40 

GRIGIO 3 

3C0 

PR INT-ST 

REM 

CR 

SR 

IN BASSO 

3^0 

PR INDU- 

REM 

CRSR . 

A DESTRA 

390 

RR INT "CI- 

REM 

CRSR 

IN ALTO 

390 

PRI NT "II* 

REM 

CRSR 

SINISTRA 

400 

INT 

REM 

HOME 


4 50 

PR I NT "J" 

REM 

CANCELLA SCHERMO 


420 
430 
440 
450 
420 
470 
480 
4 30 
500 


! 

REM ESEMPI CI V I5UAL IZZAZ JONE i 


PR I NT u \ 


i» - 


PR 1 NT " 
: 


: REM CANCELLA SCHERMO , 
REM CRSR DIN DUE VOLTE 
REM CRSR DESTRA TRE " 


l" t REM B l ANCO F CRSR SINISTRA 
: REM DUE VOLTE E CRSR DUN 
SREM UNA SOLA VOLTA 


L 00 
1 10 
120 

1 30 
140 
150 
ISO 
170 
180 
190 
EOO 

2 10 
2 20 
830 
840 
250 
8S0 
870 
280 
23 © 
300 

3 10 
320 
330 
340 
350 
380 
370 
380 
390 
400 

4 10 
420 
430 
440 

458 

480 

470 

480 


REM I CARATTER I 
REM SPECIAL lì COME 
REM VENGONO INDICATI 
REM SULLE RIVISTE* 
REM COMMODORE 
REM E COMMODORE 
REM COMPUTER CLUB. 

fe 

■ 

PR I NT “ CÌPERO ] ” 

PRINT* [BIANCO 3 " 

PR I NT" [ROSSO] " 

PRINT* [A22UR1 " 

PR INT” { V lOLft J “ 

PRINT” [VERDE J “ 

PRINT" [BLE'J] " 

PRINT” IG I ALLO ] ” 

PRINT” [RVS ] “ 

PRINT” [RVOFF ] * 

PRINT” [ARONC ] * 

PRINT" CMARRJ” 

PP INT” [ROSAI ■ 

PRINT” [GR IG IO I 3 ” 
PRINT" [GRIGIO?! * 
PRINT" t VERDE? D “ 

PR t NT ' [CELESTE ] “ 
PRINT" tGRIG 103 3 ” 

PR INT" tDOWN] " 

PRINT" [R IGHT] * 

PRINT" tUP 3 " 

PR INT" ILEFT] " 

PR INT " [HOME 1 " 

PRINT" [CLEflR 3 " 

* 

■ 

REM ESEMPI 

PR INT" [ CLEftR 3 IS DONNI 

[4 R IGHT 3 " 


PRINT’ IB IftMCO 3 t? LEFT 
J [DONNI ■ 


SO - Commodore Computer Club 


INVIARE TUTTA LA PAGINA ANCHE SE SI UTILIZZA UNA SOLA SCHEDA 



: 

■ 

■ 


1 


Registrate il mio abbonamento annuale a Commodore Computer Club. 

Q Ho versato oggi stesso t] canone di L. 28.000 a mezzo c/c postale n* 37952207 intestato 

a: 

Systems Editoriale - V.le Famagosta, 75 - 20142 Milano 

G Ho inviato oggi stesso assegno bancario n ■ ■ ■■ - 

per rim porto di L 28.QQQ i n te stato a Systems Editoriale 
Si prega di scrivere il proprio nome e l'indirizzo completo in modo chiaro e leggibile. Inviare 
la fotocopia del bollettino ds c/c postale. 


Considerando che i numeri 1 , 2 e 7 sono esauriti, vogliate inviarmi i numeri arretrati 

.al prezzo di L. 5.000 cadauno per richieste fino -a 4 numeri, o di L. 4.000 cadauno per 

richieste oltre i 4 numeri arretrati, e perciò per un totale di l.., ..... Sono a conoscenza che 

i fascioìi suddetti non saranno inviati in contrassegno e, pertanto, ho provveduto oggi stesso 

a versare il canone di L a mezzo c/c postate n. 37952207 intestato a; 

Systems Editoriale - V.le Famagosia, 75 - 20142 Milano 


STATISTICA 

Non posseggo un computer □ 

Posseggo un C64 , — — ... - si □ 

Posseggo un VfC 20. — - — si □ 

Posseggo un Commodore Plus 14, - i - sin 

Posseggo un Commodore Plus 16 - — — — si n 

Posseggo un registratore dedicato si O 

Posseggo un drive 1541 -, si □ 

Posseggo una stampante ■ —— si □ 

Posseggo un monitor , ....... ■ — si □ 


no □ 
no □ 
no CJ 
noO 
no n 
no □ 
no □ 
no □ 


COLLABORAZIÓNE 


À titolo dì prova vi invio un articolo e la cassetta :dfs‘co-t- 

col programma che intendo proporre per la pubblicazione di cui garantisco l'originalità. 


9 DO MANDA/RI SPOSTA 


. . - . t _ a 4 j ’ a- p j i l j - ■ alni ara raaairaai ■ 


nnKir‘»*aMlitr*-M 


r a I Si 7 H il t M J §■ a ■ 






mm 


RICHIESTA ARGOMENTI 


MHarebbe piacere che Commodore Computer Club parlasse piò spesso dei seguenti 
argomenti: 


1/ 

Ir iimiii 


■ ■ ili i i t ■ 1 • i: f i t r i i r i iivkiinii > rii » i- ¥ • i hrtiiNI Peri i MHi 


9 / 

*tm I ■# ■■■■«•■■«■■■■■ rriiMilii ibiii i.ntii tpiifiiviifriiiiiiH ibiértlla Mitriii Mliaii 


GIUDIZIO SUI PROGRAMMICI QUESTO NI 

Ho assegnato un voto da 0 a 1 0 ai programmi che indico di seguito: 






A/ 

» lf a- b B i » I. • - i. fi a a- i -■ ■ « i i t li ■.« « ■ i li I a a ■ ii J4 a s i i Itali. I ■ a r ■ 

B/ | 

ci 


• i f a ■ ’ « 


' ri I®. 


Voto 


Voto 


- <■ ri I ►M I * iia4|.t«iaa4i.f4»fi| V UtU 

4. . • ' 


PICCOLI ANNUNCI 




■ a ■ un aaiaiamaa I ■ t- ■ ■ 


■ Viilaittail l aM laBaTrm r a ■'« irai - r - - » r -a i 


i N -i i a a t a a 4 ■ 


1 


I. 

m 


iibiif tii+Nalf la ■ i ri i r iifilif urrmi ir ■ r r a i ■ rvi ■ ■ ■ * ■ w ■ Sia 




* 

I 








1 


I. ifc % ■' + 4 B I ■ ■■ ■ ■ 9 r ’■ » ri * + ri ■ + * ¥ 9 A * ■ ri * f * ■ • M “ .* P ■ <* ' 


- i t|i ■ i - i » 4 ■ . r * A I 
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INVIARE TUTTA LA PAGINA ANCHE SE SI UTILIZZA UNA SOLA SCHEDA 

il 


. .iiutìA 



VIDEOREGISTRI? 

VR insegna, aggiorna 
ti fa toccare con mano 
tutte le novità 



OGNI 











